We recommend that you always use strictures (use strict; use warnings; - see The strictures, according to Seuss).

Oh, hold on a moment. You did use strictures. In that case how come there are at least eight strict violations in the code you posted?

Aside from that there are a couple of global variables which are generally bad news and, OO issues aside, some fairly basic misunderstandings of Perl syntax.

Take a stroll through the Tutorials section here. Buy or borrow a copy of the Camel (Programming Perl). Oh, and fixing all the errors highlighted by use strict; before posting code is smart too ;).