sub get_ding {
    my $self = shift;
    unless( exists $self->{'__DING'} ) {
        # erstelle es
    }
    return $self->{'__DING'};
} # /get_ding

sub set_ding {
    my $self = shift;
    my $array_ref = shift;
    $self->{'__DING'} = $array_ref;
} # /set_ding