for (my $z = 0; $z < $stellen; $z ++) {
 last if substr ($nachkomma,$z,1) ne '0';
 $vornull ++;
}