Select Code to Download

my %AG = (
    'BERF - Office of Director' => [
...
);

print Dumper(%AG);

my $grade = $AG{'BERF - Office of Director'}[0][0]{GRADE};

my %AG = (
    'BERF - Office of Director' => {
        SECTION=>'BERF', GRADE=>'D1', POSITION=>'DIRECTOR', NAME=>'D. 
+Fool'
    }
);

my $grade = $AG{'BERF - Office of Director'}{GRADE};

my %hash = { a=>1, b=>2 };
my $ref = \%hash;
...
$VAR2 = 1;
$VAR3 = 'b';
$VAR4 = 2;