Select Code to Download

use strict;
use warnings;
...
          'CONST1' => 'test1',
          'CONST2' => 'test2'
        };

my %var=(
CONST1()=>'test1',
...
          '10' => 'test1',
          '12' => 'test2'
        };

my %var=(
(CONST1)=>'test1',
...

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