Once again, I thank everyone for your comments and suggestions... some of which use code that I have not yet studied, but will eventually get there. Keep in mind that this is a hobby with me and I am only half way thru my perl for dummies book :-) But again, I do appreciate the responses.
The script was not meant to be practical, but rather an exercise in learning basic perl.