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