#!/usr/bin/perl -w
use strict;
###@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 ";

#next section has 2 possible routes

			$secretword = $words{$name};
			if  (! defined $secretword) {$secretword = "groucho"; }
# or
#			$secretword = $words{$name} || 'groucho'; # || = OR therfore this states 
# 			if names exisits then set it if not then all other = 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);
				
				}
	}