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

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

use Data::Dumper;
print Dumper \%var;
__END__
test1
test1
$VAR1 = {
          '10' => 'test1',
          '12' => 'test2'
        };