2008-03-01 5.15 同じ要素の個数を数える Perl Cookbook %count = (); foreach $element (@ARRAY) { $count{$element}++; }