DB<140> %h = map {$_ => int rand 3} "a" .."f"
 => ("a", 1, "b", 0, "c", 2, "d", 2, "e", 2, "f", 0)

  DB<141> use List::Util qw/max/

  DB<142> $max = max values %h
 => 2

  DB<143> @max_keys = grep { $h{$_} == $max } keys %h
 => ("e", "d", "c")
[download]