while (my($key3, $wert) = each (% { $hash->{$key}->{$key2}})) {
    print "Schluessel: $key3\nWert: $wert\n";
}