my $highest = 0;
my $lowest = 1_000_000_000;
foreach (@list_of_int) {
   $highest = $_ if $_ > $highest;
   $lowest = $_ if $_ < $lowest; # was $highest - see update
}