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