in reply to How do I print an array with commas separating each element?
And another way:
map { print $_ . ($_ == $array[$#array] ? '' : ', ' ) } @array;
In Section
Seekers of Perl Wisdom