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

##</code><code>##

...
{
    local $, = ",";
    print @foo;
}