my %var=(
(CONST1)=>'test1',
(CONST2)=>'test2',
);

print $var{(CONST1)}."\n";
print $var{10}."\n";