use strict; use warnings; use XML::Simple qw(:strict); use Data::Dumper; my $config = XMLin('./Book1.xml',forcearray => 1,keyattr => ['']); print Dumper($config);