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;
}