Declare them as my at the top of the file. our will also work, but is generally the wrong thing to do (our is what your variables are declared as by default when you're not using strict).

If they're constants (and I certainly hope they are), you can use the constant progma instad:

use constant  FOO => 1;
use constant  BAR => 2;
[download]

Though this won't interpolate within a string.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated