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