sub BaumNeu { 
   for(0..9){
            ....            }    
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";

    $ebaum =baum->Neu(@liste1);

}