my $ref_liste1 = shift; my $zahl = shift(@$ref_liste1); #Wurzel wird mit erster Zahl der Liste1 erstellt my $ref_wurzel = knot($zahl); for $zahl (@$ref_liste1){ my $refvalue = $ref_wurzel; if ($zahl)