my %dispatch_table = (
  sloven => sub { return sloven('xml'); },
  badger => sub { return badger2xml(); },
);


my $case = 'sloven';
my $subref = $dispatch_table{$case};
$responseXML .= $subref->();