for my $teil_n (sort keys %{$my_hash{teil1}->{teil2}}) {
    print "$teil_n:\n";
    for my $teil_n_n (sort keys %{$my_hash{teil1}->{teil2}->{$teil_n}}) {
        print "\t$teil_n_n:\n";
        for my $value (@{$my_hash{teil1}->{teil2}->{$teil_n}->{$teil_n_n}}) {
            print "\t\t$value\n";
        }
    }
}