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