Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;

...
%$ref1 = (%$ref1, %$ref2);

print Dumper $ref1;
  2. or download this
    use Data::Dumper;

...
$ref1->{$_} = $ref2->{$_} for keys %$ref2;

print Dumper $ref1;