@A = qw(a d f i j k l m o q);
@B = qw(c e g h p r s t v w);

##</code><code>##

@ref = (\$A[0] \$B[0] \$A[1] \$B[1] \$A[2] \$B[2] \$B[3] \$A[3] \$A[4] \$A[5] \$A[6] \$A[7] \$A[8] \$B[4] \$A[9] \$B[5] \$B[6] \$B[7] \$B[8] \$B[9]);