use strict;

my @words = qw(foo bar baz biz);

for (1..2) {
	print "enter a word:"; 
	chomp(my $word = <STDIN>);
	if (grep {$word eq $_} @words) {
		print "found MATCH!!";
		last;
	}
}