Select Code to Download

my @array = (5, 4, 3, 2, 1);

foreach (0 .. $#array) {
...
        splice @array, $_, 1;
    }
}

my @array = (5, 4, 3, 2, 1);

my $i = 0;
...
    }
    $i++;
}