my %resulting_vendors;
my %vendors = %{ $xmldoc->{Catalog}{Vendors}{Vendor} };
foreach my $vendor2 (keys %vendors )	{
	print "vendorUniqueKey: [", $vendors{$vendor2}{vendorUniqueKey}, "], vendor2: [$vendor2]\n"; 
	$resulting_vendors{$vendors{$vendor2}{vendorUniqueKey}}=$vendor2;
}
print Data::Dumper->Dump( [\%resulting_vendors], [qw(resulting_vendors)] );