Get ALL virtual server names?

Hello,

I ended up getting the list of partitions the following way:

sub getPartition () 
 { 
         my $soapResponse = $Partition->get_partition_list(); 
         &checkResponse($soapResponse); 
         my $plist =  %{$soapResponse}->{'_content'}[4]{'Body'}{'get_partition_listResponse'}{'return'}; 
         return $plist; 
 } 
  
 my $rplist = &getPartition(); 
 if (scalar($rplist) > 1) { 
         foreach my $partition (@$rplist) { 
                 print "Dumping VS Details for partition $partition->{'partition_name'}\n"; 
                 &lookup($partition->{'partition_name'}); 
         } 
 } else { 
         &lookup(); 
 } 
 

thanks to Data::Dumper to figure the mess out of the structure returned.

Is there a better way of dealing with the soapresponse, and populate an array of references to the partition hashes?