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