for(0..$#names){
   next unless($names[$_]);
   $writer->startTag($names[$_]);
   $writer->characters($row[$_]);
   $writer->endTag($names[$_]);
   $writer->characters("\n");
 }