map($_=~/xxx/g ? push(@m,$i) : $i++) for(@array);
print @m;