my $max = max values %hash;
my $half = $max/2;
my @above = grep { $hash{$_} >= $half } keys %hash;
my $keylo = min @above;
my $keyhi = max @above;

print "1: $max\n";
print "2: $half\n";
print "3: $keylo, $keyhi\n";