XML::Simple ForceArray

XML::Simple - An API for simple XML files - metacpan.org

ForceArray => [ names ] # in - important

use XML::Simple;

my $file = 'hogehoge.txt';
my $xs  = new XML::Simple();
my $ref = $xs->XMLin($file, ForceArray => qr/_hoge$/);

for my $hoge (@{$ref->{'maru_hoge'}}) {
  print $hoge->{'hage'}, "\n";
}

hoge要素を強制的に配列と見なす．hoge要素がひとつしかなくても出力できる．ForceArrayの引数は1だと全部配列，正規表現を渡すか，配列の参照を渡す