grep { $array[$_] =~ /xxx/ } 0 .. $#array;