Hast du dein ganzes Problem gelöst, oder nur dass mit $wurzel ?

Du holst dir die anzuhängenden Werte schon am Anfang in @vals, warum holst du dir diese nochmals in deiner while Schleife ?