my @twice= map 2*$_, @list; my @thrice= map 3*$_, @list;