for (sort {$count{$b} <=> $count{$a}} keys %count){
     print "$_ $count{$_}\n";
};