my %results = map { ( $low_watermark < $_ && $_ < $high_watermark ) ? $_ => 1 : () } @all_numbers;