#!/usr/bin/perl

$Word1="Guess";
$Word2="Cheese";
$Word3="Dog";
$Word4="Why";

$Word1G=0;
$Word2G=0;
$Word3G=0;
$Word4G=0;
$X=0;

for ( $X = 0; $X < 10; $X++ )
{
print "Enter a guess:";
$Guess=<STDIN>;
chomp($guess);
        if($Guess=$Word1)
                {
                 if ($Word1G =0)
                        {
                         print"\n"."That's Right!";
                         $Word1G=1;
                        }
                 else
                        {
                         print"\n"."You already Guessed that!"
                        }
                }

        else
                {
                 if($Guess=$Word2)
                        {
                         if($Word2G=0)
                                {
                                 print"\n"."That's Right!";
                         else
                                {
                                 print"\n"."You already Guessed that!";
                                }
                        }
        else
                {
                 if($Guess=$Word3)
                        {
                         if($Word3G=0)
                                {
                                 print"\n"."That's Right!";
                                 $Word3G=1;
                                }
                        else
                                {
                                 print"\n"."You already Guessed that!";
                                }
                }
        else
                {
                 if($Guess=$Word4)
                        {
                         if($Word4G=0)
                                {
                                 print"\n"."That's Right!";
                                 $Word4G=1;
                                }
                         else
                                {
                                 print"\n"."You already Guessed that!"
                                }
                }
}