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);