#!/usr/bin/perl 
use strict;

# Loop # 1
my @outfiles = qw(d.d e.e f.f);
foreach my $file (@outfiles){
    print "\$file = $file\n";
    open OUTFILE, ">","$file" or die "Ooops\n";
    for my $i (1..50000) {
        if (int($i/1000)*1000 == $i) {
            sleep(1);
        }
        my $str = " "x300 ."\n";
        print OUTFILE $str;
    }
    close OUTFILE;
}


@outfiles = qw(d.d d.d d.d);
open OUTFILE, ">","d.d" or die "Oops\n";
close OUTFILE;

# Loop # 2
foreach my $file (@outfiles){
    print "\$file = $file\n";
    open OUTFILE, ">>","$file" or die "Ooops\n";
    for my $i (1..50000) {
        if (int($i/1000)*1000 == $i) {
            sleep(1);
        }
        my $str = " "x300 ."\n";
        print OUTFILE $str;
    }
    close OUTFILE;
}