Hello 5plit_func, this is the 4th time! There is none so deaf as who he will not ear.

What have you tried in 3 years and what suggestion from many good monks have you picked up?

Try to have a copy of Perl Cookbook beside your Learning Perl. Also the free Modern Perl book is very interesting read.
What have you done in such long period? Personally this is the count of my junk Perl gymnasium:

find . -name *.pl -ctime -1095 -maxdepth 1 | wc -l
   1132
[download]

HtH
L*