print $q->scrolling_list(-name=>'acct_num', 
                              -values=> [keys %clients], 
                              -labels=> \%clients);