gistfile1.txt

use Inline::Perl5;

my @p5 = Inline::Perl5.new xx 10;
my @promises = @p5.list.kv.map: -> $i, $p5 {
    start {
        $p5.run(q'                                                                              
         sleep $i;                                                                              
         print "hello world: $i","\n";                                                          
         $i;                                                                                    
        ');
    }
};

say "awaiting";
say [+] await @promises;