I should add, as this is my first post, that search has so far served me brilliantly since I first took up Perl in June. So thank you all for that as well.

I furthermore welcome your feedback on any other aspect of my code. I am quite new to the language, having spent most of my career in SQL. I have a great mentor at work, but he is just one mind, and quite busy with other things.