my (%h, $max, $mkey);
while (<>) {chop; $h{$_}++;}
while (($k,$v)=each %h) {if ($v > $max) {$max=$v; $mkey=$k;}}
print "$mkey: $max\n";