...
print FH $f;
...
print FH $b;
...