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