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