use strict;
use warnings;

use Data::Dumper;

use constant THIS => 100;

print "Testing: \n";

my %hash = ( (THIS) => 200 );

print Dumper \%hash;