Select Code to Download

use warnings;
use strict;
...
#sub getCount {
#    return $_[0]->{$_[1]}[0];
#}

Item 1 count 2, flag 1
Item 2 count 1, flag 0
Item 3 count 2, flag 0