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

##</code><code>##

my $choice = $line;
chomp $choice;

##</code><code>##

for ($i=0; $i<@letters; $i++) {
    if ($letters[$i] eq $guess) {
        $blankword[$i]=$guess;
        $right=1;
    }
}