my @e = grep(/0/, @d);

##</code><code>##

my @e = grep(!$_, @d);