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

my $xml_hash = XMLin('pon01100.xml');
print Dumper($xml_hash);