sub decode_obj {
    my $r = $_[0];
    if ( ref($r) eq "HASH" ) {
        for ( keys %$r ) {
            $r->{$_} = decode_obj( $r->{$_} );
        }
    }
    elsif ( ( ref($r) eq "ARRAY" ) ) {
        for ( 0 .. @$r - 1 ) {
            $r->[$_] = decode_obj( $r->[$_] );
        }
    }
    unless ( ref($r) ) {    # Zeichenkette o. ä.
        $r = Encode::encode( 'ISO-8859-15', $r );
    }
    return $r;
}