ub dumpHash {
    my ($element, $indent) = @_;

    $indent ||= '';

    return " = $indent$element\n" unless 'HASH' eq ref $element;

    my $str= '';
    for my $key (sort keys %$element) {
        $str .= "$indent$key :";
        $str .= dumpHash ($element->{$key}, $indent . '    ');
    }

    return $str;

##</code><code>##

toplevel-1 :    sublevel1a : =         value-1a
    sublevel1b : =         value-1b
toplevel-2 :    sublevel1c :        value-1c.1 : =             replacement-1c.1
        value-1c.2 : =             replacement-1c.2
    sublevel1d : =         value-1d

##</code><code>##

toplevel-1 :    sublevel1a : =         value-1a
toplevel-1 :   sublevel1b : =         value-1b