sub runden{
 my ($zahl, $stellen)=@_;
 $zahl = wurzel($zahl hoch 2);
 $stellen = 0 unless($stellen);
 my $multiplikator = 10 hoch $stellen; # weiß die syntax nicht
 return int($zahl*$multiplikator+0.5)/$multiplikator;
}