繰り返しの書き方-foreach
use strict; use warnings; use utf8; binmode STDIN, ':encoding(cp932)'; binmode STDOUT, ':encoding(cp932)'; binmode STDERR, ':encoding(cp932)'; my @fruit = ("りんご", "メロン", "イチゴ"); foreach my $name (@fruit){ print "$name\n"; } print "\n"; #変数を省略すると、デフォルト変数 $_ に格納される foreach (@fruit){ print "$_\n"; } print "\n"; #修飾子の場合 print "$_\n" foreach @fruit;