Note that your final example:

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

ends the output with "\t\n" instead of just "\n". Note much of a "bug" in this case, but a common mistake that can often have more serious effects.     print join("\t",@{$columns}), "\n";

        - tye (but my friends call me "Tye")