...
while ($th{'_CURRENTROW_'} < $th{'_ROWCOUNT_'})
{   #do something, then:
    $th{'_CURRENTROW_'}++;
}