gather/take from Perl6