use strict;
use warnings;
use Data::Dumper;

my @array = (1..10);

for (my $i = 0; $i <= $#array; $i++) {
    splice(@array, $i, 1);
}

print Dumper(\@array);