Select Code to Download

my @e =
   grep !$_,
      map $_ % 2,
         @c;

my @e =
   map $_ % 2 ? () : 0,
      @c;

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

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

my @e = ( 0 ) x grep !( $_ % 2 ), @c;

my @e; push @e, 0 for 1 .. grep !( $_ % 2 ), @c;