while (($key,$value) = each $hashref) { ... }