my @elements = qw(The quick brown fox);
local $, = ',';
print @elements;
[download]

Gives:

The,quick,brown,fox
[download]

Or you could use $" with interpolation.