my $top = 5;
my $last_count = -1;
foreach $w (sort { $count{$b} <=> $count{$a} } keys %count) {
   last if $top == 1 and $last_count != $count{$w};

   $top--;
   $last_count = $count{$w};

   print "$count{$w} $w\n";
}