use Data::Dumper;
print Dumper \%TAGS;

##</code><code>##

$VAR1 = {
          'CONST_STR' => 1
        };

##</code><code>##

my %TAGS = ( CONST_STR, CONST_ID );
my %TAGS = ( +CONST_STR  => CONST_ID );
my %TAGS = ( CONST_STR() => CONST_ID );
my %TAGS = ( &CONST_STR  => CONST_ID );