Help for this page

Select Code to Download

Select or download this

for (1 .. $sth->do("COUNT SOMETHING")) {
  cleaner($TOTALLCLAIM);
}

Select or download this

while (my ($accountno) = sth->fetchrow_array) {
   push @array_claim,$accountno;
}