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