Use <code> tags, not <DATA>.

To get the grand totals, add the following as the last line inside the WHILE loop:

  $h{$k1}{$k2}{+substr($k3,0,10) . "  Grand Total"} += $val;
[download]

This is a kludgy way to do it, but, given your sparse data definition, it does put out a grand total.

A more robust implementation would require one more level of hashing - I leave that as an exercise for you to implement.