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