print Dumper($farmdetails->{FarmRoleSet}{Item}[0]);
print Dumper($farmdetails->{FarmRoleSet}{Item}[0]{ServerSet});

# or better:

my $items = $farmdetails->{FarmRoleSet}{Item};
for my $item (@$items) {
	print Dumper($item);
	print Dumper($item->{ServerSet});
}