print ul( map { ul("$course") } keys %data);

##</code><code>##

print "<ul>";
foreach my $ref ( @records ) {
    print "<li>", $ref->{Course}, "</li>";
}
print "</ul>";