#!/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
                        print $Zahl, "\n";
                        push @prime, $Zahl;
                        last;
                }
                
        }

 }
print "Primzahlen:\n";
print map { $_."\n" }, @prime;

perl Primzahlen.pl
Unmatched right curly bracket at Primzahlen.pl line 29, at end of line
syntax error at Primzahlen.pl line 29, near "}"
Execution of Primzahlen.pl aborted due to compilation errors.

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

 perl Primzahlen.pl
Global symbol "@Zahl" requires explicit package name at Primzahlen.pl line 20.
Execution of Primzahlen.pl aborted due to compilation errors.

#!/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;
                        print $Zahl, "\n";
                        push @prime, @Zahl;
                        #Was macht das last?
                        ##die Schleife nach diesem Durchgang beenden
                        last;
                }

               }
                
        }