Try this to search for the presence of an element in an array.

my $element = 'Whatever you are searching for' ;
if (grep {$_ eq $element} @TheArray) {
  print "Element '$element' found!\n" ;
}
[download]