DB<104> my $i=-1; @m= map { $i++; $_=~/xxx/ ? $i :() } @a
 => (1, 4, 6)