CASE1:
my @result = map $_*2, @list;