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