if (grep { /^PPS/ } @objects) 
					{
		print $fp "object-group service $object \n";
					}	
				}
				else
					{