Well, I haven't figured out the source of your syntax error (on Windows ActivePerl, it's not representing, and putty won't paste correctly into emacs from this machine), but your script dies with an illegal modulus zero 100% of the time, because you never initialize $divider before you use it. I'm not sure if this is the problem you're seeing, but I'm fairly sure that foreach(undef .. whoKnows) is a bad idea, and that's what your line 13 resolves to.

Also, the omitted semi-colons on lines 14 and 16 are probably bad ideas.