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