The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use XML::Bare;
use Data::Dumper;
use 5.010;

my $doc = XML::Bare->new(file=>'sample.xml', keeproot=>0)->simple;
my @keys = keys %{$doc};
$doc = $doc->{$keys[0]};
if (exists $doc->{SelectResult}{Item} && ref $doc->{SelectResult}{Item} ne 'ARRAY') {
  $doc->{SelectResult}{Item} = [ $doc->{SelectResult}{Item} ];
}
say Dumper($doc);