in reply to constant issue

In addition to the advice provided by the monks above, you may want to consider whether using Readonly might be preferable than using constant in this case. There was a good discussion of this in a thread called Using Constants in Perl.