#!/usr/bin/perl
use warnings;
use strict;

my $infile = shift || $0; 

my %pids;
for(1..7){
  $pid{$_}{'pid'} = open( "$pid{$_}{'FH'} > $pid{$_}{'file_location'}") or warn "$!\n";
}

open( IF,"< $infile" ) or die "$!\n";

while (<IF>){
   
   my $line = $_;
   
   for(1..7){
    print $pid{$_}{'FH'}, $line; 
   }

}

print "done\n";

for(1..7){
  close $pid{$_}{'FH'};
}