Select Code to Download

# change normal array separator
my $foo = $";
$" = "\n";
print FH "@head";
$" = $foo;  # change back

{
 local $" = "\n";
 print FH "@head";
}