print "bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
$Ziel = <STDIN>;
chomp = $Ziel;
@prime = ("2");
foreach $Zahl (3..$Ziel) {
    $Zahl geteilt durch alle Zahlen in @prime;
        if $Zahl % jeweil die Zahlen aus @prime (größer als 0) {
            print "$Zahl";
            $Zahl in @prime speichern;
        }
}