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