##

{
   'SV1' => 'savamt',
   'SV5' => 'savamt',
   'SV2' => 'savamt',
   'FRT' => 'frtamt',
   'SV3' => 'savamt',
   'SV4' => 'savamt'
};

##

##

{
    'charge' => {
                'SV1' => {
                         'name' => 'savamt'
                       },
                'SV5' => {
                         'name' => 'savamt'
                       },
                'SV2' => {
                         'name' => 'savamt'
                       },
                'SV4' => {
                         'name' => 'savamt'
                       },
                'SV3' => {
                        'name' => 'savamt'
                       },
                'FRT' => {
                         'name' => 'frtamt'
                       }
              }
};

##

##

$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};
}