setting up perl constants