while (my @data = $sth->fetchrow_array){
 print TSCH join(' ',@data),"\n";
}