#!/usr/local/bin/perl
use strict;
use warnings;

my @fruit = ("りんご", "メロン", "イチゴ");

print "$_¥n" foreach @fruit;