Try printing $MAXQUAD. I bet you get '-1'. That's why your code looks like it doesn't run.

Update: I tried this and it prints the set value. However, I wonder if perl is treating it as a signed value when comparing it to $i because the loop never executes.