foreach my $key (keys (% { $hash })) {
	print "Schluessel: $key\n";
	foreach my $key2 (keys (% { $hash->{$key}})) {
		print "Schluessel: $key2\n";
		foreach my $key3 (keys (% { $hash->{$key}->{$key2}})) {
			print "Schluessel: $key3\n";
                }
	}
}