programming-examples/perl/Hash/Hash of Hashes with Lists of Values.pl

my $hashptr = { "Teacher"=>{"Subjects"=>[ qw(Science English)]},};
print $hashptr->{"Teacher"}->{"Subjects"}->[0],"\n";
print "@{$hashptr->{'Musician'}->{'Instruments'}}\n";