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

my $booklist = XMLin('book.xml', ForceArray => 1);
# print Dumper($booklist);

foreach my $book (@{$booklist->{book}}) {
	
		print $book->{type}."\n";
	
}