my @array = qw( a b c d x );
my $sought = 'a';
print "Found!" if grep $_ eq $sought, @array;