ハッシュや配列の命名規則 （こんなのもあるよ編）

名前の最後に前置詞（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";
    }
}

ふむ。自分にとっては斬新だ。