in reply to find words in array

$word = <STDIN>;
chomp $word;

[download]

See also:

In Section Seekers of Perl Wisdom