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]);
});