XMLの出力順を正しくしたい

Question

実現したいこと

Linux上でperlを動かして、xlsxからXMLを作成しているところです。
xlsxファイルの読み込み、XMLへの出力自体はうまくいっています。

発生している問題・分からないこと

ですが、生成過程の中で、順番に入れたはずの値が異なった順序になって出力されていました。ソートが必要なのでしょうが、どのようにソートしたらいいか困っています。

該当のソースコード

# 一部抜粋
#!/usr/bin/perl
use Spreadsheet::ParseXLSX;
use XML::Simple;
use open ":utf8";

my $results = []; #xml出力用オブジェクト
for my $worksheet ( $workbook->worksheets() ) {
   #中略
                my $ar_tmp = {}; #ここに取得した値を代入していく
		$result ->{'id'} = $ar_tmp[0]; #id
		$result ->{'kind'} = $ar_tmp[1]; #kind
		$result ->{'name'} = $ar_tmp[2]; #name
		$result ->{'area'} = $ar_tmp[3]; #area
		$result ->{'place'} = $ar_tmp[4]; #place
		push @$results, $result； 
}

#xml出力
my $Val = {
	'result' => $results
};
my $x = new XML::Simple;
my $xml = qq(<?xml version="1.0" encoding="UTF-8" ?>\n);
$xml .= $x -> XMLout($Val, RootName => 'results', NoAttr=>1);

#ファイルの保存
open(DATAFILE, ">", "test.xml") or die("ERR:$!");
print DATAFILE $xml;
close(DATAFILE);

<!-- 正しい順番はid、kind、name、area、place -->
<results>
  <result>
    <name>name</name>
    <area>area</area>
    <id>id</id>
    <kind>kind</kind>
    <place>place</place>
  </result>
</results>

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

代入しているのがオブジェクトであるため優先順位が保証されないものだとはわかりましたが、だとしたら、どうやって正しい順序に変えることができるのか、その方法を伝授していただければと思います。

ちなみにXML::XSLTを用いてtransformする方法は試してそれは成功していますが、perlの中でソートを変えたいのが今回の主旨です。

補足

当初はwindowsのactiveperlで動作確認してみたのですが、今回の動作には適さないことがわかり、それでLinux（VirtualBox6.4、centos7.6）で操作しています。また、Perl以前にPython3でも試してみたのですが、肝心のXML操作の時点で躓きました（日本語のXMLにうまく対応してくれない）。

Comments

[yambejp]

そもそもxlsxはXMLをzipで固めたものですから解凍してXMLを取り出せばいいのでは？

[FKM]

my $zip = Archive::Zip->new('test.xlsx');
とやってみたら、
[Content_Types].xmlという日付が1979/12/31のファイルが作られただけでした。Perlはそこまで詳しくないので、まだまだ経験不足なんでしょうが。

[melian]

FAQ に記載がありますが、現状では order sensitive なケースに対応できない様です。

XML::Simple::FAQ - Frequently Asked Questions about XML::Simple
https://metacpan.org/dist/XML-Simple/view/lib/XML/Simple/FAQ.pod#My-element-order-is-getting-jumbled-up

> If your application really is sensitive to element order, don't use XML::Simple (and don't put order-sensitive values in attributes).

[FKM]

なるほど、仮にPerl側でソートできても、XML::Simpleで出力するときに、順番が保証されないということですね。

[draq]

XML::DOM::Parser 使って自分で DOM 構築すればいいのでは。