@a = qw/AA12 BB13 CC14 DD15/
@b = qw/aa1 aa2 aa12 bb13/

##</code><code>##

if($a[$i] =~ /$b[$j]/i)