RosettaCodeData/Task/Perfect-numbers/Perl-6/perfect-numbers-1.pl6

sub is-perf($n) { $n == [+] grep $n %% *, 1 .. $n div 2 }

# used as
put ((1..Inf).hyper.grep: {.&is-perf})[^4];