Thank you everyone for your replies. I never wrote code like this myself and I always run my code through Perl::Tidy and Perl::Critic. I came across this while looking at the Testopia Bugzilla extension and was wondering if there was any reason why or if any black magic was going on.