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};