my %a = ( A => 1, B => 2, C => 3 );
my %b = ( A => 100, D => 200 );

@a{keys %b} = values %b;

print( "$_ => $a{$_}\n" ) foreach( sort keys %a );