if($array[$j] =~ m{^\Q$key\E$}) { ...