$resultline[$rcc] = $row[0] . "\t" .
                    $row[1] . "\t" .
                    $row[2] . "\t" .
                    $row[3] . "\t" .
                    $row[4] . "\t" .
                    $row[5] . "\t" .
                    $row[6] . "\t" . 
                    $row[7] . "\t" . 
                    $row[8] . "\t" . 
                    $kinclude . "\n";

$rcc++;
}

$sth->finish;
$dbh->disconnect;