in reply to Appending to variable with a switch statement?

Since you don't care about what's in %A, you don't really need a case statement. 

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

[download]
or even 
$responseXML .= ( sloven('xml') x scalar keys %A);

[download]
if sloven('xml') has no side effects.
"What should it profit a man, if he should win a flame war, yet lose his cool?"

In Section Seekers of Perl Wisdom