Select Code to Download

>perl -le"@a=qw(a b c d e); undef @a[2,3]; print for @a"
a
...
c

e

>perl -le"@a=qw(a b c d e); undef $_ for @a[2,3]; print for @a"
a
...


e

$ perl -le"%h=map { $_=>$_ } qw(a b c d e); undef @h{qw( c d )}; print
+ qq{$_: $h{$_}} for sort keys %h"
a: a
...
c: c
d:
e: e