my @results = grep { $low_watermark < $_ && $_ < $high_watermark } @all_numbers;

print max(@results), "\n";