Re^5: Extracting Unique elements

[wind]

in reply to Re^4: Extracting Unique elements
in thread Extracting Unique elements

Just use join instead of a loop:

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