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

##</code><code>##

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