use XML::LibXML;
my $tree = XML::LibXML->load_xml(string => <<'EOT');
<?xml version="1.0"?>
<language>
	<english>
		<widget ID="1">input</widget>
		<widget ID="2">output</widget>
	</english>
	<deutsch>
		<widget ID="1">eingabe</widget>
		<widget ID="2">ausgabe</widget>
	</deutsch>
</language>
EOT

test('english',1);
test('deutsch',1);

sub test {
	my ($language,$id) = @_;
	my @result=$tree->findnodes("/language/$language/widget[\@ID=$id]");
	print $_->textContent . "\n" for @result;
	my @result2=$tree->findnodes("/language/$language/widget[\@ID='$id']");
	print $_->textContent . "\n" for @result2;
}