while ($h = each %$rf_h) { ... }

##</code><code>##

while (($h) = each %$rf_h) { ... }