my $list = [qw/this that the other/];
local $, = ", ";
print @{$list}[0..$#{$list}];