my @ordered_values = ();
  while (my $row = $sth->fetchrow_arrayref)
  {
     push @ordered_values, [@$row];
  }
  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);