while ( my ($k1, $href) = each %hash ) {
    while ( my ($k2, $k3) = each %{ $href } ) {
    }
}