Async gather

gistfile1.pl

(
   gather {
      my $c = Channel.new;
      my @ps = do for ^10 { start { sleep rand; $c.send($_) } };
      my $p = Promise.allof(@ps);
      loop {
         earliest $c {
            more * {
               take $_;
            }
         };
         last if $p;
      }
      await @ps;
   }).map(*.say)

That's much nicer :)