my $reportCard = 
{
	Johnny => 
	{
		grade 		=> "D",
		goals		=> "to be a fireman",
		comments	=> "nice but dim. Must try harder."
	},
	Suzy => 
	{
		grade 		=> "B+",
		goals		=> "World Peace",
		comments	=> "Hard worker but lacking confidence"
	},
	# ...etc
}

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

##</code><code>##

my %reportCard =
(
	Johnny.grade 	=> "D",
	Johnny.goals 	=> "to be a fireman",
	Johnny.comments	=> "nice but dim. Must try harder!",
	
	Suzy.grade		=> "B+",
	Suzy.goals		=> "World Peace",
	Suzy.comments	=> "Hard Worker but lacking confidence"
);

print $reportCard{"Johnny.comments"}