Select Code to Download

   $resultline[$rcc] =                 $row[0] . "\t" .
                                $row[1] . "\t" .
...
                                $row[7] . "\t" . 
                                $row[8] . "\t" . 
                                $kinclude . "\n";

$resultline[$rcc] = join("\t", @row[0..8]) . "$kinclude\n";