>>267
間違い。
簡略化したのでエラーが出るのは最後の行です。

10 ホゲホゲ 5

と言うのをファイルから読ませています。

#!/usr/bin/perl -w

# hash----------------------------
%cn2p;

while(<>){
chomp;
# print "$_\n";
@words = split;
# print "n1 $words[0]\n";
# print "n2 $words[1]\n";
# print "n3 $words[2]\n";

$tmp = $words[1] . " " . $words[2];

$cn2p[$tmp] += $words[0];
}