sub sorted_by_dept(\%) {
  my $href = shift;
  my @sorted =  map {$_->[0] }
                sort {$a->[1] <=> $b->[1] }
                map { [$_, $href->{$_}->{dept}] }
                keys %$href;
  return @sorted;
}