my $gd=$graph->plot(\@bar_data)->$format() or die $graph->error; print '';