Though my familiarity with homework assignments posted here helps to fill me in on what your code does, it might be a good idea to tell us just for the record so that we will know what your assignment is, exactly. You wouldn't want us to guess at the specification and get it wrong so you'll get a lower grade.

Since this is almost certanly homework, and it would be highly unethical for you to turn in verbatum answers given to you by other PerlMonks, perhaps we should ask you, in what ways do you think it can be improved? And more importantly, is there a particular issue that we can help you to work out better?

I'm all for providing specific help to specific questions, even if it is homework. But you've got to ask first.