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

print "Hello, Randal! How good of you 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+l; #в следующий раз посмотреть следующее слово } else { # больше слов нет, должно быть, неверно print "Wrong, try again. What is the secret word?"; $guess = <STDIN>; chomp ($guess) ;

$i = 0; # вновь начать проверку с первого слова }

} # конец цикла while для неверных слов } # конец цикла "не Рэндал"