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