printf $fh_out
   "<xtag:%s>%s</xtag:%s>\n",
    $colname,
    $rec{$colname},
    $colname;