sub ismember {
   my ($array, $search) = @_;
   for my $i (0..$#$array) {
      return $i if $array->[$i] eq $search;
   }
   return ();
}

my $idx = ismember(\@array, "string");