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