Wie meinst du das?
join() macht aus einem Array einen String, dabei werden die Elemente mit einem weiteren String verknüpft, in deinem Beispiel mit ",":
join(", ", @array);

edit:
for my$i (0..$#array)
{
print "$_" . ($i == $#array ? "" : ", ");
}

MfG PerlProfi\n\n

<!--EDIT|PerlProfi|1171216843-->