sub set_left {
   my $self = shift;

   my $val= shift;

       
   if (ref_self->{'zahl'}) {
       $self->{'linksweg'}-> append{'val'};
   } else {
       $self->{'linksweg'} = $self->neu($val);
   }
}