DB<100> %h1=(a=>1,b=>2);
 => ("a", 1, "b", 2)
 
  DB<101> %h2=(a=>11,c=>3);
 => ("a", 11, "c", 3)
 
  DB<102> %h=(%h1,%h2)
 => ("b", 2, "b", 2, "c", 3)
 
  DB<103> @ret = ( %h=(%h1,%h2) )
 => ("b", 2, "b", 2, "c", 3)
 
  DB<104> \@ret
 => ["b", 2, "b", 2, "c", 3]
 
  DB<105> %h
 => ("c", 3, "a", 11, "b", 2)

##</code><code>##

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

##</code><code>##

  DB<107> %h=("a", 1, "b", 2, "c", 3, "a", 11)
 => ("b", 2, "b", 2, "c", 3)
 
  DB<108> %h=("a", 1, "b", 2, "c", 3, "d", 4)
 => ("a", 1, "b", 2, "c", 3, "d", 4)
 
  DB<110> %h=("a", 1, "a", 11, "b", 2)
 => ("a", 11, "a", 11)