#!/usr/bin/perl


print"Enter a word: ";
$WordA=<STDIN>;
print"Enter a word: ";
$WordB=<STDIN>;
print"Enter a word: ";
$WordC=<STDIN>;
print"Enter a word: ";
$WordD=<STDIN>;


$X=1;
$Y=1;
print"\n".$WordA."\n".$WordB."\n".$WordC."\n".$WordD."\n";
for ( $X = 0; $X < 10; $X++ )
{
$Z=9-$X;
print "Enter a guess:";
$Guess=<STDIN>;
#chomp($Guess);
if ($Y<4)
        {
        if ($Guess eq $WordA)
                {
                 print"\n"."That's Right!\n";
                 $Y++;
                }
        elsif ($Guess eq $WordB)
                {
                 print"\n"."That's Right!\n";
                 $Y++;
                }
        elsif ($Guess eq $WordC)
                {
                 print"\n"."That's Right!\n";
                 $Y++;
                }
        elsif ($Guess eq $WordD)
                {
                 print"\n"."That's Right!\n";
                 $Y++;
                }
        else
                {
                 print"\n"."That's Wrong!\n";
                 $Y++;
                }
        }
else
        {
                print"\n"."You got them all right with: ".$Z." Guesses Left!"."\n";
                $X=10;
        }
}