Select Code to Download

  DB<47> use List::MoreUtils qw/any/

...

  DB<50> $i=0; $flag= grep { $i++; $_ %2 } @x; ($i,$flag) 
 => (10000, 5000)