Select Code to Download

my $max = max values %hash;
my $half = $max/2;
...
print "1: $max\n";
print "2: $half\n";
print "3: $keylo, $keyhi\n";