Select Code to Download

use strict;
use warnings;
...

print Dumper \%hist1;
# using your __DATA__ section, not repeated here for brevity

$VAR1 = {
          '2c16a946' => 1,
...
          '38d50e09' => 1
        };

use strict;
use warnings;
...
};
print Dumper \%hist;
# not repeating the __DATA__ section here

$VAR1 = {
          '1' => {
...
                   '5' => 1
                 }
        };