Thanks for the advice, I'm still pretty new to Perl as you can see :(.