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