use strict;

use warnings;

use warnings;

use strict;
use warnings;

my ($Ziel, $Zahl, $is_prime, $p, @prime)

print "Bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
$Ziel = <STDIN>;
chomp $Ziel;

@prime = ("2");
foreach $Zahl (3..$Ziel) {
	#Wofür ist $is_prime?
	$is_prime = 1;
	#Wofür ist $p was macht sie und brauche ich das for noch?
	for $p (@prime) {
		if ($Zahl % $p == 0){
			$is_prime = 0;
			#Was macht das last?
			last;
		}
	}
}

#!/usr/bin/perl
use strict;
use warnings;

my ($Zahl, $is_prime, $p);
my @prime = ("2");
print "Bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
chomp(my $Ziel = <STDIN>);

foreach $Zahl (3..$Ziel) {
    #Wofür ist $is_prime?
    $is_prime = 1;
    #Wofür ist $p was macht sie und brauche ich das for noch?
    ##in dieser Schleife wird die Zahl aus der ersten Schleife durch die Zahlen in @prime geteilt.
    ##Wenn die Modulo-Division 0 ergibt wird die Schleife beendet.
    foreach $p (@prime) {
        if ($Zahl % $p == 0){
            $is_prime = 0;
            #Was macht das last?
            ##die Schleife nach diesem Durchgang beenden
            last;
        }
    }
}