Select Code to Download

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

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

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