Select Code to Download

my @names          = @{ $sth->{NAME} };
    
...
    my $cgi = CGI->new;
    print $cgi->header('text/xml');
    print XMLout( \@ordered_values );

$VAR1 = [
          'NPA',
...
  <anon>9895555555</anon>
  <anon>MI</anon>
</opt>