Help for this page

Select Code to Download

Select or download this

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