my @names          = @{ $sth->{NAME} };
	my @ordered_values = ();
	while ( my $row = $sth->fetchrow_arrayref ) {
		push @ordered_values, [@$row];
	}

	my $cgi = CGI->new;
	print $cgi->header('text/xml');
	print "-- DBI says:\n";
  print XMLout( \@ordered_values, NoAttr=>1, RootName=>'dataset', );

  print "\n";
  print "-- dumper says:\n";
  print Dumper(\@names);
  print Dumper(\@ordered_values);

##</code><code>##

<anon>
    <anon>AAAABUcKyqQhEAABI34stA.4515613</anon>
    <anon>989</anon>
    <anon>OQ-OZDN-D-UHMC-UHMC-0939</anon>
    <anon>MQ-MTBO-T-CCDPN-FTQ-1737</anon>
    <anon>9895555555</anon>
    <anon>MI</anon>
  </anon>