ハッシュのキーは,文字列そのものや変数でなくとも,評価されたときに文字列を返すものであればよい。
#$var を小文字に変換したものがキー
$hash{lc $var}++;
#2つの変数を : で結合したものがキー
$hash{$var1 . ':' . $var2};
#配列の要素を : で結合したものがキー
$hash{join ":", @array};
大文字小文字を区別せずに単語の出現数を数える
--------------------------------------------------
while (<>) {
while (/\b\S+\b/g) {
$freq{lc $&}++;
}
}
--------------------------------------------------