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

e