foreach $svc_acct_pop ( sort {
$a->getfield('popnum') <=> $b->getfield('popnum')
} qsearch('svc_acct_pop',{}) ) {
my($hashref)=$svc_acct_pop->hashref;
print <<END;
<TR>
foreach $svc_acct_pop ( sort {
$a->getfield('popnum') <=> $b->getfield('popnum')
} qsearch('svc_acct_pop',{}) ) {
my($hashref)=$svc_acct_pop->hashref;
print <<END;
<TR>