open (FILE, ">> $outfile") || die "Unable to open Write File! \n";
#print FILE @JanFiles;
do { local @ARGV = @JanFiles; print FILE $_ while <> };
close FILE;