print $q->scolling_list(
  '-name'    => 'acct_num',
  '-values'  => [ sort values %clients ],
  '-labels'  => \%clients
  '-default' => $default_value
);