print join "\t",@{$columns}, "\n";