Select Code to Download

   DB<102> my $i=0; @m= map { $_=~/xxx/ ? $i++ : () } @a
 => (0, 1, 2)

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