my @row;
while ( @row = $sth_C->fetchrow_array )
{

    undef @row;
}