What is the easiest way to get a key with the high

Question

What is the easiest way to get a key with the highest value from a hash in Perl?

Answer 1

my $highest_val = (sort { $hash{$a} <=> $hash{$b} } keys %hash)[0];

is likely to be what you want.

If you have a very large hash, you might want to use something like a Schwartzian transform:

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

Answer 2

my $highest_val = (keys {$hash{$b} <=> $hash{$a}} keys %hash)[0];