Just use join instead of a loop:

print FH ref($bar) eq "ARRAY" ? join(',', @$bar) : $bar;
[download]