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


e