regarding perl6, here's how I would do it (untested code, of course :-)

require 6.0; # yeah, sure

my $f1 is chomped = IO::File.new( shift ) or die("ack - $!");
my $f2 is chomped = IO::File.new( shift ) or die("ack - $!");

my @f1 is from <$f1>;
my @f2 is from <$f2>;

my @join = @f1 ^_ @f2;
[download]

Update: actually, this seems to work:

my @join = @f1 ^_ " " ^_ @f2;
[download]

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris