sub IsItThere($$) {
  my $testarray = shift;
  my $string    = shift;
  for (@$testarray) {
    return 1 if $_ eq $string;
    ## Or... return 1 if /$string/i; etc. etc.
  }
  return 0;
}