my @array = qw/this that the other/;
local $, = ", ";
print @array[1..$#array], "\n";
__OUTPUT__
that, the, other