[Thousand-oaks-pm] Perl hash question

[Robert Hull]

I'm looking for a succinct way to join two hashes.  What I would like is:

%foo .= %bar ;

Where %foo retains it values for keys undefined in %bar
and
%foo takes %bar values for keys defined in %bar.

Maybe I do not know an obvious way of doing this.  The best I found is:

my @temp = %foo ;
push @temp,%bar ;
%foo = @temp;

Just wondering if a better way exists?  Does my solution have unexpected 
side effects?

Robert