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