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