my %A;
for (0..$#A_v_B1) {
  $A{$A_v_B1[$_]}{B} = $A_v_B2[$_];
}
for (0..$#A_v_C1) {
  $A{$A_v_C1[$_]}{C} = $A_v_C2[$_];
}