%x{1} = "old x sub 1";
%x = 
  ( 1 => 2, 
    3 => $x{1} 
  );