sub hashref2html {
    my ($hashref, $tiefe) = @_;
    $tiefe ||= 1; #starten mit Tiefe 1, wenn keine Tiefe gegeben
    for my $key (sort keys @$hashref) {
        print "<h$tiefe>$key</h$tiefe>";
        #nachschauen, ob ich einen unterhash habe
        if (ref $hashref->{$key} eq "HASH") {
            hashref2html($hashref->{$key}, $tiefe + 1);
        } else {
            print $hashref->{$key};
        }
    }
}