#!/usr/athena/bin/perl
$cnt=0;
while(<>){
$cnt++;
chop; $hash{$_}++;
print STDERR "$cnt\n" if($cnt % 5000 == 0);
}
foreach $key (sort byvalue keys %hash) {
if ($hash{$key} > 10) {
printf "%5d %s\n", $hash{$key}, $key;
}
}

sub byvalue {
  $hash{$b} <=> $hash{$a};
}