Select Code to Download

use strict;
use warnings;

    foreach(@sof_i)
        {
...
   ##This just randomly deletes the first elements of the array for ho
+wever many times you did $sof_to_delete++
   for ($i=0;$sof_to_delete>0;$sof_to_delete--)
        {shift(@sof_i);}

foreach(@sof_i)
...
    $sof_to_delete++;
}
shift @sof_i for (0..$sof_to_delete)