my @names          = @{ $sth->{NAME_uc} };
	my @ordered_values = ();
	while ( my $row = $sth->fetchrow_hashref ) {
		@ordered_values = @{$row}{@names};
	}
	print Dumper(\@names);
	print Dumper(\@ordered_values);
        my $cgi = CGI->new;
	print $cgi->header('text/xml');
	my $testxml =
	  XMLout( \@ordered_values, NoAttr => 1, RootName => 'dataset', );
	print $testxml;

##</code><code>##

$VAR1 = [
          'NPA',
          'GC_ID',
          'I_TG_NAME',
          'E_TG_NAME',
          'DN',
          'STATE'
        ];
$VAR1 = [
          undef,
          'AAAABUcKyqQhEAABI34stA.4515613',
          undef,
          undef,
          undef,
          undef
        ];

Content-Type: text/xml; charset=ISO-8859-1

<dataset>
  <anon></anon>
  <anon>AAAABUcKyqQhEAABI34stA.4515613</anon>
  <anon></anon>
  <anon></anon>
  <anon></anon>
  <anon></anon>
</dataset>