while (($key, $value) = each %$hash_ref) {
    # do something...
}