Completely off-topic, but have you ever considered using spaces in your code? Especially when things get more complicated I personally tend to find $wizard -= 1 a lot easier to read than $wizard-=1. Same thing for the if conditions tbqh, if($x == 1) seems easier to read than if($x==1). Perhaps tis just a matter of taste, don't know how others feel about it.

update(suggested by Animator ;-)
You might want to take a look at the Perlstyle POD for some very good insights on the subject.