my $labels = [];
my $data = [];
while (my $ref = $sth->fetchrow_hashref()) { 
  push @$labels,$ref->{'Labels'}; 
  push @$data,$ref->{'Data'}; 
}
[download]

Thanks Poj, its

my $labels = []; 
my $data = []; 
 
while (my @row = $sth->fetchrow_array) { 
    push @$labels, $row[0];  
    push @$data, $row[1];  
}
[download]

Rgds. Terry

So instead of using the parts to output them as a table, maybe use the two separate parts to generate your chart?

I'm not exactly sure where your problem lies in taking the data and putting it to use, so I'm uncertain about how to help you better. Maybe you can tell me what parts you have problems with?