well, and here's a quick and dirty and inefficient approach, which, however, might suffice your needs if the hash is small enough:

# gets the three biggest numbers
my @values = (sort {$b <=> $a} map {values %$_} values %$hash)[0..2];
[download]