print $Zahl, "\n";
			push @prime, $Zahl;