my $OUT1 = new FileHandle;
open($OUT1,">$filename1");
my $OUT2 = new FileHandle;
open($OUT2,">$filename2");
my $OUT3 = new FileHandle;
open($OUT3,">$filename3");
my $OUT4 = new FileHandle;
open($OUT4,">$filename4");