Many thanks MidLifeXis for your teaching-based response--there is much to think about here.
I did not include all the code because it's over 200 lines long--the declaration for $voy_cal2use is above the snippet I posted.
Still very new to Perl (and any programming), so although I know "There is more than one way to do it," I am very hesitant to mess with my predecessor's code. I've thought many times that it might be easier to write my own script, but I don't know enough to do that yet. Thanks for the introduction to more streamlined possibilities--and the humor. :-) I will play with the SQL.