- or download this
use strict;
use warnings;
...
print Dumper \%hist1;
# using your __DATA__ section, not repeated here for brevity
- or download this
$VAR1 = {
'2c16a946' => 1,
...
'38d50e09' => 1
};
- or download this
use strict;
use warnings;
...
};
print Dumper \%hist;
# not repeating the __DATA__ section here
- or download this
$VAR1 = {
'1' => {
...
'5' => 1
}
};
- or download this