in reply to Printing Columns from Two Different Files

For extreme magic: 
#my list of files
@ARGV=qw/txt1.txt foo.txt baz.txt etc.foo/;
open OUT,'out.txt';
while(<>){print OUT $_;}

[download]

In Section Seekers of Perl Wisdom