###############
#Hinzufügen weiterer Äste
###############
sub hinzufuegen {
  my $self = shift;
  my @newList = my @liste2;
  if (defined($self->{ref_wurzel})){ 
    my $list = $self->{@Liste2};
    foreach my $neueZweige (@Liste2)
    { push(@$list, $neueZweige); };
    $self->{ref_wurzel} = newtree ($list);  
   
  } 
}