use DDS;
my $ref = { 1 .. 4 };
my %foo = %{ $ref };
$foo{1} = 6;
Dump( $ref, \%foo );
__END__
$HASH1 = {
           1 => 2,
           3 => 4
         };
$HASH2 = {
           1 => 6,
           3 => 4
         };