...
{
  local $" = ", ";
  print "@array";
}
# hier ist $" wieder auf ' ' zurückgesetzt
print "@array2";