#perl -w

print "hello From strider\nEnter your name\n";
$name=<STDIN>;
chomp $name;
if($name eq "bilbo"){print"Hello you little hobbit you.\n";}
else {print" Hello  $name\n";}

%list=qw(
bilbo ring
frodo RING
sam sword
);
$secretword=$list{$name};
if($secretword eq ""){$secretword="strider"}

print"What is the secret word\n";
$guess=<STDIN>;
chomp $guess;
if($guess eq $secretword){print"Very Good!!!\n";}
while($guess ne $secretword){
print"OOPS try again!!\n";
$guess=<STDIN>;
chomp $guess;
if($guess eq $secretword){print"Very Good!!\n";}  }