print $q->scrolling_list(
  '-name'    => 'acct_num',
  '-values'  => [ sort { $clients{$a} cmp $clients{$b} } keys %clients ],
  '-labels'  => \%clients,
  '-default' => $default_value
);