#!/usr/bin/perl

package Baum1;
use strict;
use warnings;
....#Hauptprogramm {sub neu, sub hinzufügen, sub ausgabe}
sub neu {
   my $class = shift;
   my @liste = @_; 
   my $ref_wurzel = newtree(\@liste);
   my $self = { val => $ref_wurzel, l => \@liste};
   bless $self, ref($class) || $class;
   return $self;
}

sub ausgabe {
 my $self = shift;
 my $knoten = $self;

   if (defined($knoten->{'linksweg'}))
   {
   ausgabe($knoten->{'linksweg'});
   }
   print " $knoten->{'zahl'} ";
   

   if(defined($knoten->{'rechtsweg'}))
   {
   ausgabe($knoten->{'rechtsweg'});
   }
}
###############
#Hinzufügen weiterer Äste

sub append {
 my $self = shift;
 my @vals = @_;
 if (defined($self->{val}))
 { 
   my $liste = $self->{l};
  
   for my $zzahl (@vals){
     push(@$liste, $zzahl); }
   $self->{val} = newtree ($liste);  
 }

}
1;