Select Code to Download

my %h;

...; # get info from db

$h{$total} += $revenue;

use warnings;
use strict;
...
5 19
17 8
45 -1

$VAR1 = {
          '5' => 19,
...
          '4' => 962,
          '17' => 8
        };