#!/usr/bin/perl -w

###@words = ("camel", "llama", "alpaca");
###
###  #or
###  #@words = qw(camel llama alpaca); # qw acts to specify "" to each variable
###

### Above shows the use of an 'array' - the following describes an 'hash' 
### shown as %a (see 'pinky' for full program)

%words = qw     (
                fred    camel
                barney  llama
                betty   alpaca
                wilma   alpaca
                );

print "What is your name? ";
$name = <>;
chomp $name;

if
  ($name eq "pete")
  {
     print "Hello, $name! \n";
  }
else
  {
     print "Hello $name,\n ";
     $secretword = $words{$name};            # gets secret word

####    problem seems to start here #####

     if  ($secretword eq "")
        {$secretword = "groucho"; }
     print "What's the secret word ?\n";

     $guess = <>;
     chomp ($guess);

     while ($guess ne $secretword)
     {
       print " Niet - try again, What is the secret word ?\n";
       $guess = <>;
       chomp ($guess);

     }
  }