my $columns = [ qw (one two three) ]; # sample data is GOOD
print join "\t",@{$columns}. "\n";
print join ("\t",@{$columns}). "\n";

##</code><code>##

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