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