I appreciate your response, but I'm fairly new to Perl. Perhaps if you could suggest how could I modify my code properly. I'll appreciate your help.