@A = ($a1,$a2,$a3,$a4);
@B = ($b1,$b2,$b3,$b4);