Select Code to Download

Select or download this

my $months = $dbh->selectall_arrayref("select to_char(last_day(add_mon
+ths('14-May-2004', (rownum-1))),'MON-RRRR')  dt
from all_objects
...
    print "check $monthhash{@$month[0]} @$month[0] @{$months->[$x]} **
+ $monthhash{ (@{$months->[$x]}) }\n";
    $x++;
}

Select or download this

May 04    Jun 04    Jul 04    Aug 04    Sep 04    Oct 04
50            100    110        

May 04    Jun 04    Jul 04    Aug 04    Sep 04    Oct 04
50        50        50       100       110       110