What are 'CONSTANT1' and 'CONSTANT2'? In your sample code these two bare words are the things that generate 'Bareword "CONSTANT2" not allowed while "strict subs" in use' type errors. No trivial variations on the code you provide give the error you report, at least with Perl 5.10.1.