use strict;
use warnings;
use XML::LibXML;
use Data::Dumper;

my $xml = do { local $/; <DATA> };
my $dom = XML::LibXML->load_xml(string => $xml);

my %vendors = map {
       $_->getAttribute('vendorUniqueKey') => $_->getAttribute('name')
    } @{$dom->getElementsByTagName('Vendor')};


print Dumper(\%vendors);

__DATA__
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Import format="3.0" fileId="54630000-3141-1404-4310-7F0000014030" fileCreationDateTime="2012-07-23T06:04:31.415" catalogSource="TLCMz">
	<Catalog>
		<Vendors>
		  <Vendor name="Allen Systems" vendorUniqueKey="ALLENGRP"/>
		  <Vendor name="Aonix North America" vendorUniqueKey="AONIX"/>
		  <Vendor name="Beta Systems Software" vendorUniqueKey="BETASYS"/>
		  <Vendor name="BMC Software" vendorUniqueKey="BMC"/>
		</Vendors>
	</Catalog>
</Import>