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