#!/usr/bin/perl -w
%words = qw(
ray camel 
john llama 
bill alpaca
mike 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";
	$secretword = $words{$name};
	print "What is the secret word? ";
	$guess = <stdin>;
	chomp $guess;
	while ($guess ne $secretword)
	{
		print "Wrong try again. What is the secret word? ";
		$guess = <stdin>;
		chomp $guess;
	}
}