if ($Zahl % $p == 0){
                        $is_prime = 0;
                        print $Zahl, "\n";
                        push @prime, $Zahl;
                        last;
                }