#for my $word ( (sort { $count{$b} <=> $count{$a} }  keys %count) [0..4] ) {
#    #print "$word $count{$word}\n";
#}