Select Code to Download

my @vals = sort {$b <=> $a } map { values %{$hoh->{$_}} } keys %$hoh;
my ($one, $two, $three) = @vals[0..2];

my @top_3;
my $filled = 0;
...
    }
}
print "$_\n" for @top_3;