40 my %judge = ();
41	while ($db->FetchRow()) {
42		my $n_name = $db->Data("NOMNAME");
43		my $mentor = $db->Data("MENTOR");
44		my $ptcare = $db->Data("PTCARE");
45		my $clinres = $db->Data("CLINRES");
46		my $j_name = $db->Data("JUDGENAME");
47		my $j_inst = $db->Data("JUDGEINST");
48		print "<p>$j_name, $j_inst, $n_name</p>";
49		$judge{$j_name} = {JudgeInst => $j_inst} 
50				unless exists $judge{$j_name};
51		push @{$judge{$j_name}->{Nominee}}, $n_name;
52		push @{$judge{$j_name}->{Nominee}->{Scores}},							$mentor,$ptcare,$clinres;
	}