2008-04-08 2.1 かっこ Perl Practices かっこと中かっこにK&Rスタイルを使用する my @names = ( 'Damian', 'Matthew', 'COnway', ); for my $name (@names) { for my $word ( anagrams_of(lc $name) ) { print "$word\n"; } }