my $ref1 = { foo => 23 };
my $ref2 = { bar => 23 };
my %merged = ( %$ref1, %$ref2 );

use Data::Dumper;
print Dumper \%merged;