Select Code to Download

my @member_lists = @{$soapResponse->result};
my @memberobjectstatus = @{$soapResponse->result};
...
@member_lists = $VAR1 = bless( [ bless( { 'address' => '/Common/10.116
+.38.51', 'port' => '80' }, 'Common::AddressPort' ), bless( { 'address
+' => '/Common/10.116.38.52', 'port' => '80' }, 'Common::AddressPort' 
+) ], 'Common::AddressPort[]' );
@memberobjectstatus =
@ $VAR2 = bless( [ bless( { 'availability_status' => 'AVAILABILITY_STA
+TUS_GREEN', 'status_description' => 'Pool member is available', 'enab
+led_status' => 'ENABLED_STATUS_ENABLED' }, 'LocalLB::ObjectStatus' ),
+ bless( { 'availability_status' => 'AVAILABILITY_STATUS_GREEN', 'stat
+us_description' => 'Pool member is available', 'enabled_status' => 'E
+NABLED_STATUS_ENABLED' }, 'LocalLB::ObjectStatus' ) ], 'LocalLB::Obje
+ctStatus[]' );

Like this
$VAR1 = bless( [ bless( { 'member' => bless( { 'address' => '192.150.1
+6.166', 'port' => '80' }, 'Common::IPPortDefinition' ), 'state' => 'S
+TATE_ENABLED' }, 'GlobalLB::PoolMember::MemberEnabledState' ) ], 'Glo
+balLB::PoolMember::MemberEnabledState[]' );