Untitled

sub prime-sieve($nd) {
    my @sieve is default(True) = False, False;
    loop (my $i = 2; $i <= sqrt($nd); $i++) {
        if (@sieve[$i]) {
            loop (my $j = $i**2; $j <= $nd; $j += $i) {
                @sieve[$j] = False;
            }
        }
    }
    do for @sieve.kv -> $i, $is-prime {
        $i if $is-prime;
    }
}

say prime-sieve(100);