Select Code to Download

for ($index = 0; $index <= (scalar(@array) - 1); ++$index)
{
...
         splice ("array, $index, 1);
    }
}

$index = 0;
foreach $thing(@array)
...
    
    ++$index;
}