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