Select Code to Download

my @names          = @{ $sth->{NAME_uc} };
    my @ordered_values = ();
...
    my $testxml =
      XMLout( \@ordered_values, NoAttr => 1, RootName => 'dataset', );
    print $testxml;

$VAR1 = [
          'NPA',
...
  <anon></anon>
</dataset>