Select Code to Download

use strict;
my $input_file = 'foobar.txt';
...
}
close $in;
print "max at ($max->[ 0 ], $max->[ 1 ])\n";

while ( <$in> ) {
  chomp;
...
  last if $y <= $max->[ 1 ];
  $max = [ $x, $y ];
}