use strict;
use warnings;

use constant CONST1=>10;
use constant CONST2=>12;

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

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