for my $i (0..$#$row) {
   if (!defined($row->[$i]) {
      $row->[$i] = ' ';
   }
}