#!/usr/bin/perl

use warnings;
use strict;

my $num = 11000;
my @primzahlen = ();

sub isPrim {
    my $tocheck = shift;
    my $maxlimit = $tocheck;
    my $isprim = 1;
    my $i;
    for $i (@primzahlen) {
        if ($i > $maxlimit) {
            last;
        }
        if ($tocheck % $i == 0) {
            $isprim = 0;
            print "$tocheck\t$i\t$maxlimit\n";
            last;
        } else {
            $maxlimit = int($tocheck / $i);
        }
    }
    return $isprim;
}

for my $i (2 .. $num) {
    if (isPrim($i)) {
        push(@primzahlen, $i);
        print "$i\n";
    }
}