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