http://www.perlmonks.org?node_id=548369


in reply to parallel reading

Can be this? 
perl -e 'for(@ARGV){open FILE,$_;chomp($a[$.-1].=$_)while<FILE>;close 
+FILE}$,=$/;open FILE,">out";print FILE@a' A B C

[download]

In Section Seekers of Perl Wisdom