if (%$ref) {
    while ( my ($k, $v) = each %$ref ) {
        ...
    }
}