Select Code to Download

while (<FILE1>) {
      # this
      @lines = $_;
}

while(<FILE1>) {
    push @lines, $_;
}

@lines = <FILE1>;