Move constants to XS and export and use them in perl module