#!/usr/bin/perl

use Coro;
use Coro::Cont;

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

my %hash = (1,10,2,20,3,30);

%hash = map mul23($_), %hash;

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