Good that you have found the solution yourself! Happy coding in Perl!