my @array = qw ( a b c d x );
my $sought = 'a';
print 'Found!' if "@array" =~ /\Q$sought/;