Select Code to Download

my %already_seen;
while (<>) {
     my @temp = split /\s\, $_;
...
          print $output2 $_;
     }
}