Select Code to Download

my $items = $farmdetails->{FarmRoleSet}{Item};
for my $item (@$items) {
...
    my $ExternalIP = $item->{ServerSet}{Item}{ExternalIP};
    my $InstanceID = $item->{ServerSet}{Item}{PlatformProperties}{Inst
+anceID};
}

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