sub hinzufuegen {
  my $self = shift;
  my @newList = my @liste2;