Select Code to Download

for my $key ( sort keys %title ) {

# This will sort by title, then by topic id
sub by_course_and_title {
...
         $title{$a}{il2e002_topic_id_k} cmp title{$b}{il2e002_topic_id
+_k};
}
for my $key ( sort &by_course_and_title keys %title ) {

for my $foo ( @foo ) {
    # Do something interesting
}