Select Code to Download

use List::Util qw( max);

...
    my $second = { reverse %$h }->{ max values %$h};
    print "\%r{$first}{$second} ==> $h->{ $second}\n";
}