[..blablabla..]

my ($som) = $service->call($method => @params, $envHeader);

[..blablabla..]

printf "\nStreets: ";
foreach $street ($som->valueof('//Streets')) {
        printf "\n\t%s", $street->{string};
    }