That can't "works pretty good" - it's not Perl (// is not a Perl comment).

Unless you understand what they actually do and you have a real reason to use them, do not use prototypes (see perlsub). Prototypes generally do not do what you expect if you come from another language such as C++!

If I run:

use XML::Simple;
use strict;
use warnings;

my $xml = <<XML;
<root>
<outputText styleClass="required" value="*" id="AdjustCCDetails_Reason
+Code_table_required_id" />
</root>
XML

my $config = XMLin ($xml);

processhash ($config, '$config');


sub processhash {
    my ($href, $path, @junk) = @_;
    my %configr = %$href;

    foreach my $k (keys %configr) {
        print qq|$path :: $k = $configr{$k}\n|;

        if ($configr{$k} =~ m/HASH/i) {
            processhash ($configr{$k}, qq|$path -> {'$k'}|);
        }
    }
}
[download]

it prints:

$config :: outputText = HASH(0x2106718)
$config -> {'outputText'} :: value = *
$config -> {'outputText'} :: id = AdjustCCDetails_ReasonCode_table_req
+uired_id
$config -> {'outputText'} :: styleClass = required
[download]

which is what you expected (so far as I can tell). What have you done differently? Can you modify my sample to illustrate your problem?