my $vendors = "$xmldoc->{'Catalog'}->{'Vendors'}";

foreach my $vendor (@{$vendors->{Vendor}}) {
		print $vendor->{name} . "\n";
}