my @sorted_keys = map{ $_->[0] }sort{ $b->[1] <=> $a->[1] }map{ [ $_, $hash{$_} ] }keys %hash;

for my $key ( @sorted_keys ) {
    print $key, " -> ", $hash{$key},"\n";
}