#!/usr/bin/perl

use strict;
use warnings;

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

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

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