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