That's a horribly inefficient way of creating & using constants.
In reply to Re: question regarding "Tie" in Perl by BrowserUk in thread question regarding "Tie" in Perl by lightoverhead