my $ref_liste1 = shift;
my $zahl = undef; 

my $ref_wurzel = knot($zahl);

    for $zahl (@$ref_liste1){
    my $refvalue = $ref_wurzel;