foreach (@words)
{
    print $fh "$_\n";
    chomp;
}