Select Code to Download

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

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

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