gistfile1.txt

sub handle($inputchannel, $outputchannel) {
    say [$inputchannel, $outputchannel];
}

my $channels = [];
loop (my $i = 0 ; $i <= 10; $i++) {
    $channels.append(Channel.new);
}
loop ($i = 2 ; $i <= 10; $i++) {
    start handle($channels[$i-1], $channels[$i]);
}
sleep 1;


output:

count@bumba:~$ perl6 start-wtf.pl6 
[Channel.new (Any)]
[Channel.new Channel.new]
[Channel.new Channel.new]
[Channel.new Channel.new]
[Channel.new Channel.new]
[Channel.new (Any)]
[Channel.new Channel.new]
[Channel.new Channel.new]
[Channel.new Channel.new]