use Data::Dumper;
my @a = (1,2,3);
print Dumper(\@a);
delete $a[1];
print Dumper(\@a);

##</code><code>##

@a = (1,2,3);
splice @a, 1, 1; # replace 1 element(s) starting on position 1 by nothing
print Dumper(\@a);