if you want to decide how to deal with keys existing in both hashes, use simple foreach:

foreach my $key (keys %B) {
   if (exists $A{$key}) {
       # do something
       next;
   }
   $A{$key} = $B{$key};
}
[download]