...
$printout .= $f;
...
$printout .= $b;
...
print FH $printout