PERL READONLY CONSTANT