Select Code to Download

[@myarray]-->[ 0 ]->[ value 1 ]
             [ 1 ]->[ value 2 ]
             [ 2 ]->[ value 3 ]
             [ 3 ]->[ value 4 ]
             [ 4 ]->[ value 5 ]

[@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;