use Modern::Perl;
use Mojo::DOM;
use Data::Dumper;

my $xml = <<'END';
  <inventors type="array">
    <inventor>
      <city>Aston Clinton</city>
      <name>Andy Barth</name>
      <number type="integer">1</number>
      <country>GB</country>
      <upper-name>ANDY BARTH</upper-name>
    </inventor>
    <inventor>
      <city>Aylesbury</city>
      <name>Daniele Dall'Acqua</name>
      <number type="integer">2</number>
      <country>GB</country>
      <upper-name>DANIELE DALL'ACQUA</upper-name>
    </inventor>
    <inventor>
      <city>Calne</city>
      <name>Nigel Drew</name>
      <number type="integer">3</number>
      <country>GB</country>
      <upper-name>NIGEL DREW</upper-name>
    </inventor>
  </inventors>
END

my $dom = Mojo::DOM->new($xml);
my %record = getInventorNum($dom, 1);

print Dumper \%record;

sub getInventorNum {
	my ( $dom, $num ) = @_;
	my %hash;

	$dom->find('number')->each(
		sub {

			if ( $_->text == $num ) {
				for my $element ( @{ $_->parent->children } ) {
					next if $element->type eq 'number';
					$hash{ $element->type } = $element->text;
				}
			}
		}
	);

	return %hash;
}

##</code><code>##

$VAR1 = {
          'country' => 'GB',
          'city' => 'Aston Clinton',
          'upper-name' => 'ANDY BARTH',
          'name' => 'Andy Barth'
        };