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