%a = (
        a => 1,
        b => 2,
        c => 3,
        d => 4,
        e => 5
);

%b = (
        c => 9,
        d => 16,
        f => 36
);

$A=\%a;
@$A{keys %b} = values %b;