use strict;
use warnings;
use 5.010;

use Coro;
my @threads;
for my $t ( 1 .. 3 ) {
  push @threads, async {
    print "coro $t says hi $_\n" for 1..3;
  };
}
for (@threads) {
  $_->join;
}

##</code><code>##

coro 1 says hi 1
coro 1 says hi 2
coro 1 says hi 3
coro 2 says hi 1
coro 2 says hi 2
coro 2 says hi 3
coro 3 says hi 1
coro 3 says hi 2
coro 3 says hi 3