print {FH_hash{$foo}} $line_out;

##</code><code>##

while (<{FH_hash{$foo}}>) { #...