use XML::Simple;
my $ds = XMLin "664168.xml";

use Data::Dumper;
print Dumper $ds;