Thank you linuxer for your tip, actually I just seen something similar on "Perl Best Practices" page 61. I will try to consider templates as well.

Thanks for your help...!!!