Select Code to Download

     sort keys %hash;

     @keys = sort{$hash{$b} <=> $hash{$a}} keys %hash;

     tie %clients, 'Tie::SortHash', \%clients, $sortblock;

     my $sortblock = q(my $c = (split /\s+/, $a)[1];
     my $d = (split /\s+/, $b)[1];
     $c cmp $d || $clients{$a} <=> $clients{$b});

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