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