# Extract objects from config.
		my @objects = map { /^(object|object-group) (network|service) ([A-Za-z0-9-_]+)$/ ? $3 : () } @{ $configref };
		# Remove objects from config.
		@config = grep { $_ !~ /^(object|object-group) / } @config;
		# Find unused object references.
		foreach my $object (@objects) { 
		        if (!grep { $_ =~ /$object/ } @config) 
				{
					elsif grep { /^PPS/ } @objects; 
					{
						print $fp "object-group service $object \n";
						
					else 
						print $fp "object-group network $object \n";
					}
            	 
				}
				
		}