use Scalar::Util "dualvar";
use constant Foo => dualvar(0040,"0040");