##
[@myarray]-->[ 0 ]---->[ value 1 ]
[ 1 ]---->[ value 2 ]
[ 2 ]-\
[ 3 ]-\\->[ value 4 ]
\->[ value 5 ]
####
@moo = grep {; {if ($_ % 2 > 0){ 0;last; } 1;}} @moo;
####
@moo = grep { +{if ($_ % 2 > 0){ 0;last; } 1;} } @moo;
####
@moo = grep { not ( $_ % 2 ) } @moo;