my @ordered_result_list = sort keys %results;

##</code><code>##

print sort 1..10;  # 1 10 2 3 4 5 6 7 8 9

##</code><code>##

print sort { $a cmp $b } 1..10;  # 1 10 2 3 4 5 6 7 8 9

##</code><code>##

print sort { $a <=> $b } 1..10;  # 1 2 3 4 5 6 7 8 9 10

##</code><code>##

use List::Util qw( max );

print max 1..10;  # 10

##</code><code>##

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

##</code><code>##

$ perl -wle'my %h = map { $_ => 1 if $_ > 5; } 1..3; print 0+keys(%h);'
Odd number of elements in hash assignment at -e line 1.
1

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

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