#
# eg7: several secret words..
#
my @secretword = ( "Davros", "Zygon", "Cyberman" );
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;
                my $correct = 0;
                foreach my $i (@secretword)
                {
                        $correct = 1 if $i eq $guess;
                }
        last if $correct;
                print "Wrong - guess again: ";
        }
}
