$ perl -MData::Dumper -le '
    @array = (1 .. 3);
    delete $array[1];
    print Dumper \@array;
    delete $array[2];
    print Dumper \@array;'

##</code><code>##

$VAR1 = [
          1,
          undef,
          3
        ];

$VAR1 = [
          1
        ];