while (my @data = $sth->fetchrow_array){
  print TSCH join(' ', map {defined($_) ? $_ : 'NULL'} @data),"\n";
}