my $library = XMLin($filename, ForceArray => [ 'book' ], KeyAttr => {}); foreach my $book (@{$library->{book}}) { print $book->{isbn}, "\n" if $book->{pages} > 900; }