The global variable $" contains the separator, though it's often clearer to use join:

use 5.010;

# this has the same effect as...
{
    local $" = ', ';
    say {$fh} @array;
}

# a shorter approach
say {$fh} join ', ', @array;
[download]