Select Code to Download

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

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