I want to creat monthly bucket for comaprison in a format like:

Report Name  Game   June   May   April etc....
[download]

Please help.

elsif ($query->param('layout') eq 'Month Comparison')
  
{
        $ora_sth = $ora_dbh->prepare ( q
        {
            select
                            timestamp,
                            report_type,
                game_name,
                            data_name,
                            data_value
                    from
                            dwhs.mainstream_games_reports
                    where
                game_name = ?
            and    
                            timestamp >= (sysdate - ?)
        }  
    )  || die "Can't prepare statement: $DBI::errstr";

$rc = $ora_sth->execute($list_name,$day_list) || die "Can't execute st
+atement: $DBI::errstr";

$query = new CGI;
print $query->header,
$query->start_html(-title=>'Hearts Data',
            -BGCOLOR=>'3366CC');
print "\n";

print $query->start_table({-border=>undef,
                -align=>'center'});
print "\n";

while ( ($timestamp, $report_type, $game_name, $data_name, $data_value
+) = $ora_sth->fetchrow_array)
    {
        if (($data_name eq 'min') || ($data_name eq 'time')) {$data_va
+lue = $data_value * 1440}
        {    %myvar =(    $report_type,
                    $data_name,
                    $data_value,
                );
        $dname{$report_type} = $data_name;
        $dvalue{$report_type} = $data_value + $dvalue{$report_type};
        }
      } 

print $query->Tr( $query->th(["Report Name","Value"]) );    

foreach $var  (keys %dvalue)
    {
    print $query->Tr( $query->td([$var,"$dvalue{$var} $dname{$var}"]) 
+);    
    }
$ora_dbh->disconnect;
print $query->end_table;
print "\n";
print $query->end_html;
print "\n";

}
[download]