$_ = <>; my @fields = split; my $lowest = my $highest = $fields[2]; while (<>) { my @fields = split; if ($fields[2] <= $lowest) { $lowest = $fields[2]; } if ($fields[2] >= $highest) { $highest = $fields[2]; } } print("$lowest\n"); print("$highest\n");