my $neu=();
for(keys %A){
  $neu{$_}=exists $B{$_} ? $B{$_} : $A{$_};
  }