- or download this
my %AG = (
'BERF - Office of Director' => [
...
);
print Dumper(%AG);
- or download this
my $grade = $AG{'BERF - Office of Director'}[0][0]{GRADE};
- or download this
my %AG = (
'BERF - Office of Director' => {
SECTION=>'BERF', GRADE=>'D1', POSITION=>'DIRECTOR', NAME=>'D.
+Fool'
}
);
- or download this
my $grade = $AG{'BERF - Office of Director'}{GRADE};
- or download this
my %hash = { a=>1, b=>2 };
my $ref = \%hash;
...
$VAR2 = 1;
$VAR3 = 'b';
$VAR4 = 2;