use Switch;
switch(%A) {
	case 'sloven' { $responseXML .= sloven('xml') }
	case 'leggert' { $responseXML .= wiggedy() }
	...
}