Changing operator to == worked! Thank you all so much.
Is there anyone out there that could review these scripts and offer suggestions? Paid, of course.
Check out http://jobs.perl.org, or one of the many freelance sites if you're looking to pay someone to do a code review. Here you get small amounts of professional quality help in return for asking interesting questions. ;)