Perl question!

Question for people who are better at perl than I am (this is most people who program in perl):( here there be perl code )

It works, but I feel like there should be a more elegant way to do this in perl. Thoughts? Suggestions?
Thanks!