map ($_ => 2*$_), @list   # XXX