Select Code to Download

use strict;
# use warnings;
...
print $temp "Pointer$_ - $lines";
}

foreach my $line(@array){
foreach my file(0 .. 100 or however would be best){
...
write $line from array to $file
    }
}