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;
        }
}

chomp $Ziel

my $is_prime = 1;
for my $p (@prime) {
    if ($Zahl % $p == ){
        $is_prime = 0;
        last;
    }
}

print "bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
$Ziel = <STDIN>;
chomp $Ziel;
@prime = ("2");
foreach $Zahl (3..$Ziel) {
	my $is_prime = 1;
	for my $p (@prime) {
    		if ($Zahl % $p == ){
       		$is_prime = 0;
        	last;
   		 }
	}
}