my $i = 0;
while (<COL>)
{
    print OUT2 "$_ ", $col[$i++], "\n";
}