Try this:

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

The NULLs you see were the cause of your warning.