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

##</code><code>##

The,quick,brown,fox