my $items = $farmdetails->{FarmRoleSet}{Item};
for my $item (@$items) {
	next unless $item->{RoleID} == $some_number;
	my $ExternalIP = $item->{ServerSet}{Item}{ExternalIP};
	my $InstanceID = $item->{ServerSet}{Item}{PlatformProperties}{InstanceID};
}