while (my $col1 = <FILE1>) {
    chomp $col1;
    last unless (my $col2 = <FILE2>);
    print "$col1\t$col2";
}