for my $n (2 .. 99) {
    my $is_prime = 1;
    $is_prime &&= $n % $_ or last for 2 .. sqrt $n;

    say $n, ' is a primer number' if $is_prime;
}