Did you ignore moritz advice above?

"please don't use Switch;, it can go horribly wrong, and is deprecated in favor of given/when, which are available starting from perl 5.10.0 (current old-old release)."

Perhaps you're using an even more outdated (superceded?) Perl than 5.10? If so, I strongly suggest you upgrade.

But perhaps you're working for an employer who hasn't or won't upgrade. If so, pay attention to the other problems in the code you initially posted.

Otherwise, some of us may conclude that you're asking us to do -- for free -- the work for which you're receiving payment. I'm pretty sure you don't want to have us believe that.