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