my %t_type = (
...
    'b' => {
        a => {low => 1000, high => 3000, percent => 25},
        b => {low => 200,high => 2000, percent => 30},
        c => {low => 1000,high => 6000, percent => 40},
        d => {low => 300,high => 1800, percent => 35},
        e => {low => 10, high => 40, percent => 60},
        f => {low => 2, high => 12, percent => 50},
        g => [
            {select => 'new',low => 1,high => 1,percent => 10},
            {select => 'expert',low => 1,high => 1,percent => 10},
        ],
    },
...
);


##</code><code>##

print L $xsimple->XMLout(
            \%t_type,
            noattr => 1,
            xmldecl => '<?xml version="1.0"?>',
        );