Select Code to Download

(chart ((1 ((title title-1) (xlable X-lab) (ylable Y-lab) (description
+ desc1) (type line) (series ((1 ((x-data (1 2 3 4 5)) (y-data (20 90 
+60 50 30))))))))))

[
  "chart",
...
    ],
  ],
]

{
  chart => {
...
        ylable      => "Y-lab",
      },
}

use Data::Dump qw(dump);
print "x_data: ", dump($keyed_list->{chart}->{series}->{"x-data"}), "\
+n";
...
# which outputs
#x_data: [1, 2, 3, 4, 5]
#y_data: [20, 90, 60, 50, 30]

package Data::SExpression::Special;

...
# and then you got
#x_data: [1, 2, 3, 4, 5]
#y_data: [20, 90, 60, 50, 30]