Select Code to Download

use strict;
use warnings;
...
for ( sort keys %h2 ) {
    print "$_: @{[values %{$h2{$_}}]}\n";
}

courses: open full open
roster: history math biology