use XML::LibXML 1.94;
use Data::Dumper;

my %hash = XML::LibXML
	-> load_xml(location => 'mydata.xml')
	-> getElementsByTagName('Vendor')
	-> map(sub { $_->{vendorUniqueKey} => $_->{name} });

print Dumper \%hash;