#!/usr/bin/perl

use Coro;
use Coro::Cont;

sub mul23 : Cont {
   result shift*2;
   result shift*3;
}

my %hash = (1,1,2,2,3,3);

%hash = map &$cont, %hash;

print join(",", %hash), "\n";