#
# eg8: a hash of secret words
#
my %issecretword = ();
$issecretword{"Davros"}   = 1;
$issecretword{"Zygon"}    = 1;
$issecretword{"Cyberman"} = 1;
print "Please enter your name: ";
my $name = <STDIN>;
chomp $name;
$name = ucfirst(lc($name));
if( $name =~ /^Dun[ck]/ )
{
        print "\nwotcha Dunky babe!\n";
} else
{
	print "\nhello $name!\n";
	print "Please enter one of the secret words: ";
	while(1)
	{
		my $guess = <STDIN>;
		chomp $guess;
	last if $issecretword{$guess};
		print "Wrong - guess again: ";
	}
}
