Select Code to Download

%b = map { $_ => 1 }
     grep defined, @a;

%b = map { defined ? ($_ => 1) : () } @a;

@a = qw( a b c d );

...
splice(@a, 2, 1);

print("\@a has ", scalar(@a), "elements.\n");