sub add {
    my $self = shift;
    $self->{@_} = { @_ };
    $self->{$_[0]} = { @_ };
    if (@_) { 
        $self->{ID} = shift(@_);
    }
    return $self->{@_};
}