my @e;
for my $c ( @c ) {
   my $d = $c % 2;
   push @e, $d if !$d;
}