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