my @twice= map $doubler->($_), @list; my @thrice= map $tripler->($_), @list; #### my @twice= map 2*$_, @list; my @thrice= map 3*$_, @list;