Select Code to Download

use Data::Dump::Streamer;
my $xml = XML::Simple->new();
my $d = $xml->XMLin("sample.xml",ForceArray => 1, KeepRoot => 1);
Dump $d;

$HASH1 = { 
  inbox => [ 
...
    } 
  ] 
};

my $d = $xml->XMLin("sample.xml");

$HASH1 = { 
  item => [
...
    }
  ] 
};

for my $item ( @{ $d->{item} } ) {
  print "$item->{title}\n";          # for example
}