名前の最後に前置詞(of,for,from 等)を追加すると,ハッシュや配列へのアクセスが理解しやすくなるそうな。 (by Perl Best Practices) <変数> → [<形容詞> _ ]* <名詞> <前置詞> サンプルコード my %title_of; my %ISBN_for; my @sales_from; while (my $month = prompt -menu => $MONTH_NAMES) { for my $book ( @catalog ) { print "$ISBN_for{$book} $title_of{$book}: $sales_from{$moth}\n"; } } ふむ。自分にとっては斬新だ。