sub neu {
  my $this = shift;
  my $class = ref($this) || $this;
  my @liste = @_; ........