Help for this page

Select Code to Download

Select or download this

while ( my ($key1,$hash1) = each %{$hoh} ) {
    while ( my ($key2,$value) = each %{$hash1} ) {
        ### CODE ###
    }
}