my @data = ("a", "b", "c");

say join "\t", @data;
say join '\t', @data;

##</code><code>##

$ perl test.pl
a       b       c
a\tb\tc
$