Where did the idea for this code come from? The coding style doesn't look like "newbie" to me, so most likely you've cargo culted some code from somewhere without really knowing what it does. If so, (actually regardless) you should take a browse through the Tutorials section here. Also Ovid's Begining Perl is also likely to be of interest and is freely available.