Select Code to Download

sub subA {
    # ...
...

    subB($chart_widget, $data_aref);
}

my $chart = $mw->Chart( ... );

my $data_aref = subA;
subC($chart, $data_aref);