Select Code to Download

<?xml version="1.0" encoding="UTF-8" ?>
<charge-type-control>
...
   <charge code="SV4" name="savamt"/>
   <charge code="SV5" name="savamt"/>
</charge-type-control>

{
   'SV1' => 'savamt',
...
   'SV3' => 'savamt',
   'SV4' => 'savamt'
};

{
    'charge' => {
...
                       }
              }
};

$ref = XMLin('charge-type-control.xml', KeyAttr => ['code']);

$ref = XMLin('charge-type-control.xml', KeyAttr => ['code'], ValueAttr
+ => ['name']);

my %myref;
for my $key (keys %{$ref->{charge}}) {
   $myref{$key} = $ref->{charge}->{$key}->{name};
}