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

e

##</code><code>##

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


e

##</code><code>##

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