Select Code to Download

my %departments;
while( $sth->fetchrow() ) {
...
my @departments = map { 
        { department => $_, classes => $departments{$_} } 
} keys %departments;