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