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