Select Code to Download

while ( my( $key1, $val1 ) = each %hash1 ) {
    while ( my( $key2, $val2 ) = each %$val1 ) {
...
        );
    }
}

while ( my( $key1, $val1 ) = each %hash1 ) {
    while ( my( $key2, $val2 ) = each %$val1 ) {
...
    }
}