open (my $ofile, '>',$outfile) || die "Unable to open Write File! $outfile\n";
for my $infn (@JanFiles) { 
  open (my $infile,'<',$infn) || die "Unable to open input file! $infile \n";
  while (my $line=<$infile>) { print $ofile $line;} 
  close ($infile); 
  } 
close $ofile;