#!/usr/bin/perl

use warnings;
use strict;

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

sub isPrim {
    my $tocheck = shift;
    my $isprim = 1;
    my $i;
    for $i (@primzahlen) {
        if ($tocheck % $i == 0) {
            $isprim = 0;
            last;
        }
    }
    return $isprim;
}

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