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