##

	my %xml_hash;
	print $xml->chart({caption => 'Chart Title', subcaption => 'Subtitle', xAxisName => 'xAxis', yAxisName => 'yAxis'});
	while ( my $row = $sp->fetchrow_hashref ) {
		push @{ $xml_hash{set} }, $row;
	}
	my $xmlOut = XMLout(\%xml_hash, NoAttr => 1, RootName => 'chart');
	print $xmlOut;

##

##


  
    January
    10622
  
..
...


##

##

print $xml->chart({caption => 'Chart Title', subcaption => 'Subtitle', xAxisName => 'xAxis', yAxisName => 'yAxis'},
foreach my $key ( sort keys %hash) {
	my ( $date, $cust ) = split( /:/, $key );
	$xml->data({set => },['set'], $hash{$key}[2]);
});