Select Code to Download

use Tie::File;

...
splice(@array, 0, 100);

untie @array;

tie @array, 'Tie::File', "filename" or die ...;
my $i;
...
  $i++;
}
splice(@array, 0, $i);