if ($a[$i] =~ /^\Q$b[$j]\E\z/i)

##</code><code>##

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

##</code><code>##

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