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

##</code><code>##

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