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

##</code><code>##

if(uc $a[$i] eq uc $b[$j]) {
...
}