Select Code to Download

(1 => 2, 3 => $x{1} )

(1, 2, 3, undef)

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

@a = (2, @a)

@a = reverse sort @a;