>     if ($row[$i] ne ""){
This tests for an empty string not an undefined value.

Try something like:

   if (defined $row[$i]) {
     if ($row[$i] ne "") {
       print $row[$i] . "\t";
     } else {
       print "Empty string in row\t";
     }
   } else P
     print "NULL value in row\t";
}

--
   Simon Oliver

Reply via email to