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