in reply to Merging larges files by columns
Why I'm not surprised?
while (<IN1>){ chomp; print OUTFILE $_; [download]
A complicated way to copy $infile to $outfile, better use File::Copy