use Data::Dumper;

%x =
  ( 3 => 4,
    1 => 5
  );

print Dumper(\%x), $/;

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


print Dumper(\%x), $/;