#!/usr/bin/perl -w
@words = qw( internet answers printer program );
@guesses=();
$wrong=0;
$line=0;


my @words = qw( internet answers printer program ); 

open my $fh, '>', "words.txt" or die "Cannot open words.txt: $!";


foreach (@words)
{
    print $fh "$_\n";     #Because I want each word in a separate line.
chomp($fh);       #maybe something wrong with chomp();?
}
close $fh;


srand;
open MYFILE, "<words.txt" or die "Could not open words.txt: $!\n";
rand($.)<1 and ($line=$_) while <MYFILE>;
close MYFILE;

$choice=$line;
$hangman="0-|--<";

@letters=split(//, $choice);
@hangman=split(//, $hangman);
@blankword=(0) x scalar(@letters);
OUTER:
while ($wrong<@hangman) {
foreach $i (0..$#letters) {
if ($blankword [$i]) {
print $blankword [$i];
} else {
print "-";
}
}
print "\n";
if ($wrong) {
print @hangman[0..$wrong-1]
}
print "\n Your Guess: ";
$guess=<STDIN>; chomp $guess;
foreach(@guesses) {
next OUTER if ($ _ eq $guess);
}
$guesses[@guesses]=$guess;
$right=0;
for ($i=0; $i<@letters; $i++) {
if ($letters[$i] eq $guess) {
$blankword[$i]=$guess;
$right=1;
}
}
$wrong++ if (not $right);
if (join('', @blankword) eq $choice) {
print "You got it right!\n";
exit;
}
}
print "$hangman\nSorry, the word was $choice.\n";