print "Set a limit\n";
$limit = <STDIN>;
chomp $limit;
@primes = (2);
$zahl = 2;
$isprime = 1;





for (my $number = 3; $number < $limit; $number++) 

	{
		@primes = sort @primes;
		$isprime = 1;
				
				foreach $divisor (@primes)
			{
				print "Dividing $number by $divisor\n";
					if ($number % $divisor == 0) 
					{
						#print "$number is no Primenumber\n";
						@primes = sort @primes;
						$isprime = 0;
						last;
					}
			
			}

	if ($isprime == 1) 
		{
		#print "$number is a primenumber\n";
		@primes = sort @primes;
		push (@primes, $number);
		}
	}