Select Code to Download

            map {print "$_\n"} @List; 
            map {print FILE "$_"."\n"} @List;

foreach (@List) {
      chop;
      print "$_ \n";
      print FILE "$_ \n";
}