foreach (@$Datacenter_views)
{
	my %seen;
	my $DC = $_->name;
	print "$DC, ";
	
	# get all clusters under this datacenter
	my $DC_view = Vim::find_entity_view(view_type => 'Datacenter', filter => { name => $DC });

	my $Cluster_views = Vim::find_entity_views(view_type => 'ClusterComputeResource', begin_entity => $DC_view);
	
	foreach my $cluster (@$Cluster_views)
	{
		my $Cluster_name = $cluster->name;
#		printf "%s\n",$Cluster_name;
		
		# get all hosts in this cluster
		
		my $Cluster_view = Vim::find_entity_view(view_type => 'ClusterComputeResource',  filter => { name => $cluster->name });
		my $Hosts_view = Vim::find_entity_views(view_type => 'HostSystem', begin_entity => $Cluster_view);
		
		# print all hosts in the cluster
		foreach my $hosts (@$Hosts_view)
		{
			my $host_name = $hosts->name;
			printf"%s, %s\n", $Cluster_name, $hosts->name;	
			$seen{$host_name} =1;		
		}
	}
	
	# get all hosts under this datacenter
	my $hosts_views = Vim::find_entity_views(view_type => 'HostSystem', begin_entity => $DC_view);
	
	foreach my $hosts (@$hosts_views)
	{
# This is the problem		unless ( %seen)
		{
			printf "%s\n",$hosts->name;
		}
	}
	exit();
}