Select Code to Download

use warnings;
use strict;
...
    print "Item $_ count ", $recordI->getCountI ($_), ', flag ', $reco
+rdI->getFlagI ($_), "\n";
    print "Item $_ count ", $record{$_}{count}, ', flag ', $record{$_}
+{flag}, "\n";
}

sub addU {
    my ($self, $item) = @_;
...
sub getCountI {
    return int ($_[0]->{$_[1]} / 2);
}

Empty sizes:
Packed: 92
...
Item 3 count 2, flag 0
Item 3 count 2, flag 0
Item 3 count 2, flag 0