#! perl -slw
use strict;

open ONE, '<', $ARGV[0] or die $!;
open TWO, '<', $ARGV[1] or die $!;

until( eof( ONE ) ) {
    chomp( my $one = <ONE> );
    chomp( my $two = <TWO> );
    print "$one\t$two";
}

close ONE; close TWO;

__END__
c:\test>junk11 file1 file2
one     1
two     2
three   3
four    4
five    5
six     6
seven   7
eight   8
nine    9
ten     10