use Data::Dumper;

use strict;
use warnings;

my @a = (1,2,3,4,5);
print Dumper(\@a);
delete $a[1];
#splice(@a, 1,1);
print Dumper(\@a);