#!/usr/bin/perl
%words=("fred","camel","barney","llama","betty","oyster","wilma","oyster");
print "What is your name? ";
$name=<STDIN>;
chop($name);
$original_name=$name;
$name =~ s/\W.*//;
$name =~ tr/A-Z/a-z/;
if ($name eq "randal") { print "Hello, Randal! How good... \n";}
else 
{ 
	print "Hello, $original_name!\n";
	$secretword=$words{$name};
	if ($secretword eq "") {$secretword="groucho";}
	print "What is the secret word? ";
	$guess=<STDIN>;
	chop($guess);
	while ($guess ne $secretword)
	{
		print "Wrong, try again... ";
		$guess=<STDIN>;
		chop($guess);
	}
}