Select Code to Download

$ERRORS{CRITICAL}
$ERRORS{'CRITICAL'}
$ERRORS{"CRITICAL"}

use Data::Dumper;
sub ERRORS {
...
}

$a = ERRORS{"CRITICAL"};

ERRORS called
$VAR1 = [
...
            'CRITICAL' => undef
          }
        ];