Select Code to Download

my ($min, $max) = (scalar each %h) x 2;
($min, $max) = (
...
    $h{$_} > $h{$max} ? ($min, $_) :
    ($min, $max)
) for keys %h;

my $min = each %h;
my $max = each %h;
...
else {
    $max = $min;
}