my $graph = Text::Graph->new( 'Bar' );
print $graph->to_string( [1,2,4,5,10,3,5],
                         labels => [ qw/aaaa bb ccc dddddd ee f ghi/ ],
                       );

##</code><code>##

while (@rowdata = $sth->fetchrow_array()) {
    push (@chart_data, $rowdata[2]+0);
    push (@chart_labels, $rowdata[0].' '.$rowdata[1].':00');
}
$graph->to_string(@chart_data, labels=>@chart_labels);