#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;

my %navi = (
             "Java" => {
                        "Switch"  => ["Switch","switch.htm"],
                        "Bubble"  => ["Bubblesort","Bubble.htm"],
                       },
             "Dings" => {
                        "Urgs"    => ["Urgelurgs","uuuuuurgllll.htm"],
                        "Gnubbel" => ["Gubblesort","Gnubbel.htm"],
                       },
            );

for my $key (sort keys %navi) {
    print "Key '$key'\n";
    for my $innerkey (sort keys %{$navi{$key}}) {
        print "\tInner Key: '$innerkey'\n";
        for my $value (@{$navi{$key}{$innerkey}}) {
            print "\t\t\tWert = '$value'\n";
        }
    }
}

Key 'Dings'
	Inner Key: 'Gnubbel'
			Wert = 'Gubblesort'
			Wert = 'Gnubbel.htm'
	Inner Key: 'Urgs'
			Wert = 'Urgelurgs'
			Wert = 'uuuuuurgllll.htm'
Key 'Java'
	Inner Key: 'Bubble'
			Wert = 'Bubblesort'
			Wert = 'Bubble.htm'
	Inner Key: 'Switch'
			Wert = 'Switch'
			Wert = 'switch.htm'