or download this
$h{$ddhh }{$database}{total} += $speed;
$m{$ddhhmm}{$database}{total} += $speed;
$h{$ddhh }{$database}{max} = max(($h{$ddmm}{$database}{max} || 0),
+ $speed);
$m{$ddhhmm}{$database}{max} = max(($h{$ddmm}{$database}{max} || 0),
+ $speed);