2.1 かっこ

かっこと中かっこにK&Rスタイルを使用する

my @names = (
  'Damian', 
  'Matthew',
  'COnway',
);

for my $name (@names) {
  for my $word ( anagrams_of(lc $name) ) {
    print "$word\n";
  }
}