sub is_prime {
    my $number = shift;
    # hier testest du ausschließlich, ob $number prim ist
}

for (my $a = 2; $a <= $grenze; ++$a) {
    say "$a ist prim" if is_prime($a);
}