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

##</code><code>##

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