#!/usr/bin/perl
@words=("camel","llama","oyster");
print "What is your name? ";
$name=<STDIN>;
chop($name);
if ($name eq "Randal") { print "Hello, Randal! How good... \n";}
else 
{ 
	print "Hello, $name!\n";
	print "What is the secret word? ";
	$guess=<STDIN>;
	chop($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... ";
			$guess=<STDIN>;
			chop($guess);
			$i=0;
		}
	}
}