sub new {
  my $proto = shift;
  my $class = ref $proto || $proto;
  my $referenz = {};
  bless($referenz,$class); # das return kann hier auch wegbleiben
}