sub reportg{

my( $userjobcount_ref, $userjobcpu_ref, $queuejobsystem_ref, $userjobtime_ref, $queue_cpu_summary_ref, $total_ref, $count) = @_;
my( $total, $avg, $month_or_day,$user, $queue, $system_cpu);
$MW = MainWindow->new;

foreach $month_or_day (sort keys %{$queue_cpu_summary_ref}) {
foreach $queue (sort keys %{$queue_cpu_summary_ref->{$month_or_day}})
{


$usage=sprintf ("%.3f", $$queue_cpu_summary_ref{$month_or_day}{$queue} / $total * 100);
$data = {
$queue => $usage
};


$ca = $MW->Graph(
-type => 'BARS',
-ylabel => 'percentage',
-xlabel => 'queue',
)->pack(
-expand => 1,
-fill => 'both',
);


$ca->configure(-variable => $data); # bind to data