#!/usr/local/bin/perl

use strict;
use warnings;
use XML::Simple;

my $xml = qq{<SuperItem>
 <UserID>1234</UserID>
 <MajorItems>
  <MinorItem>
   <Item>Box</Item>
  </MinorItem>
 </MajorItems>
 <MajorItems>
  <MinorItem>
   <Item>Suitcase</Item>
  </MinorItem>
 </MajorItems>
</SuperItem>};

use XML::Simple qw/:strict/;
use Data::Dumper;

my $xml_simple = XML::Simple->new(KeyAttr => 1, KeepRoot => 1, ForceArray => 1);
my $output = $xml_simple->XMLin($xml);
print "\nEntire xml..", Dumper($output);

print "\n2nd Minor item..", $output->{'SuperItem'}[0]{'MajorItems'}[1]{'MinorItem'}[0]{'Item'}[0];