...
$, = ",";
print @foo;