$ perl
%h1=(a=>1,b=>2);
%h2=(a=>11,c=>3);
print (%h3=(%h1,%h2),"\n");
 
print %h3, "\n";
a11b2c3
c3a11b2