my @lines;
  {
    my $fh = new IO::File "< $infile";
    @lines = <$fh>;
  }
  for ( @lines ) { ...