Select Code to Download

my %departments;

while($sth->fetch) {
...
  };

}

$tmpl->param(
  departments => [values %departments],
);

#Note: $tmpl is an HTML::Template object

$tmpl->param(
  departments => [@departments{ sort keys %departments }],
);