my $word; my @wrds; my $w;

my $tries=0;
while($tries!=2){
 print "enter a word:"; $word=<STDIN>; chop $word;
 while($word != @wrds[$w]){
  $w++;
  if($word = @wrds[$w]){print "found MACTH!!";}
 }
 $tries++;
}