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

##</code><code>##

    $acct_num = (split/ \- /, $acct_num)[-1];