#!/usr/bin/perl -w
@words = qw(camel llama alpaca);
print "What is your name? ";
$name = <STDIN>;
chomp $name;
if ($name eq "Aaron")
{
   print "Hello, Aaron. How good of you to join me.\n";
}
else
{
   print "Hello $name.\n";
   print "What is the secret word? ";
   $guess = <stdin>;
   chomp $guess;
   $i = 0;
   $correct = "maybe";
   while ($correct eq "maybe")
   {
      if($words[$i] eq $guess)
      {
         $correct = "yes";
      }
      elsif ($i < 2)
      {
         $i = $i + 1;
      }
      else
      {
         print "Wrong try again. What is the secret word? ";
         $guess = <stdin>;
         chomp $guess;
         $i = 0;
      }  
   }
}