$responseXML .= sloven('xml') for keys %A;