coro_inc.pl

use strict;
use warnings;
use Coro;

my $offset = 0;
my $inc  = 100;
my $max   = 6;

my @coros;
my $stdout = "Incrementing \$offset by $inc...\n---\n";
while ( $offset < 3000 ) {
	for my $i ( 1 .. $max ) {
		my $offset_copy = $offset;
		push @coros, async {
			$stdout .= "Coro $i started: $offset_copy\n";
			$stdout .= "---\n" if $i % $max == 0;
		};
		$offset += $inc;
	}

}
for my $c (@coros) {
	$c->join;
}
print $stdout;