@moo = grep { +{if ($_ % 2 > 0){ 0;last; } 1;} }  @moo;