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