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

##</code><code>##

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