Select Code to Download

my @a = qw( a b c d );
# delete a & c
splice(@a, 0, 1)
splice(@1, 1, 1)

my @a = qw( a b c d );
my %b = ( 'e' => 2 );
%b = (%b, map { $_ => 1} grep defined, @a);