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);

##</code><code>##

$VAR1 = [
          1,
          2,
          3,
          4,
          5
        ];
$VAR1 = [
          1,
          undef,
          3,
          4,
          5
        ];

##</code><code>##

$VAR1 = [
          1,
          3,
          4,
          5
        ];