Mega Code Archive

 

Categories / Perl / Hash

 

Nested hashes

%students=( "Math"    => { "A"  => 100,   "B" => 95 },              "Science" => { "C" => 85,     "D"  => 76 }            ); print qq/$students{Math}->{Joan}.\n/; print qq/$students{Science}->{Bill}.\n/;