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