#!/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;
		}	
	}
}