if ($array[$i] eq q{[}) { #etc...
if ($array[$i] eq "[") { #etc...