>>438
惜しいな。ハッシュが更にハッシュを参照するように代入する所は
こんな風にすれば良いんじゃないだろうか。
if ($_=~ /Cellular (\d+)/){
　$count{$hit}->{$1} = 1;
}
で、こんな風に出力する。(sortしたい場合は keys の直前に sort を入れるなどする)。
for my $h (keys %count) {
　for my $c (keys %{$count{$h}}) {
　　print "$h $c\n";
　}
}