while(<COL>) {
  $_ =~ s/^(\S)/$1 $col[$i++]/;
  print OUT2 $_;
}