#!/user/bin/perl -w
@words = qw (camel llama alpaca);
print "What is your name? ";
$name =<STDIN>;
chomp ($name);

if ($name eq "Randal") {
    print "Hello, Rand Goood to be here~ \n";
}else {
    print "Hello, $name \n";
    print "What is the secret word? ";
    $guess = <STDIN>;
    chomp ($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, Whats the secret word? ";
	    $guess = <STDIN>;
	    chomp ($guess);
	    $i = 0;
	}
    }
}