Select Code to Download

my $reportCard = 
{
...
}

print $reportCard->{Johnny}->{comments};

my %reportCard =
(
...

print $reportCard{"Johnny.comments"}