XML parsing with Perl using XPath

use strict;
use XML::LibXML;

# data source
my $xml_filename = "xml/data.xml";

my $parser = XML::LibXML->new;
my $doc = $parser->parse_file($xml_filename);

my $xpath = "//word/entry[\@src=\"pr\"]/..";
my @words = $doc->findnodes($xpath);

foreach my $word (@words) {
	print $word->findvalue("\@id");
	print "\n";
}