Select Code to Download

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

my $choice = $line;
chomp $choice;

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