print FILE join ("\t", @$col), "\n";