my @index  = grep { $array[$_] eq $search ? 1 : 0 } 0 .. $#array;