my @array = qw ( a b c d x );
my $sought = 'a';
print 'Found!' if index ("@array", $sought) > -1;