【Perl】文字列をカウントしたいです。

以下のようなテキストファイルがあります。（ここで出すのは例なので、本当は１万行くらいあります）

20927258 7092
20927258 7093
21167105 7092
21167105 10469
21167105 10470
21167105 10471
21167105 10472
21167105 10473
21167105 10474


この中に入っている文字列、例えば20927258や10474などがいくつあるかをカウントするためのプログラムを書きたいのですが、どのようにすればよいでしょうか？？
重複があるので、それは消したいです。つまりこの例でいえば
20927258は２つということにしたいです。


よろしくお願いします！！！！

No.1 回答者： Tacosan 回答日時： 2009/06/04 18:38

ハッシュで数えればいいのでは.

my %count;
while (my $line = <>) {
$count{$_}++ for split ' ', $line;
}
とか.