Select Code to Download

{ # long block begin
   .
...
   .
   .
}

  my @lines;
  {
...
    @lines = <$fh>;
  }
  for ( @lines ) { ...

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