use SOAP::Lite;
##...soap setup done here....##
my $result = $soap->search(SOAP::Data->name('searchString',$search));


foreach my $r (%$result){
   print $r->result->{Person}->{commonname};
	
}


##</code><code>##

Pseudo-hashes are deprecated at ./searchPeople.pl line 23.
Argument "\x{53}\x{68}..." isn't numeric in hash element at ./searchPeople.pl line 23.
Bad index while coercing array into hash at ./searchPeople.pl line 23.