Select Code to Download

my $highest = 0;
my $lowest = 1_000_000_000;
...
   $highest = $_ if $_ > $highest;
   $lowest = $_ if $_ < $lowest; # was $highest - see update
}

my $highest = 0;
my $lowest; # undef
...
   $highest =>> $_;
   $lowest =<< $_;
}

my $highest = '';
my $lowest; # undef
...
   $highest eg $_;
   $lowest el $_;
}