Select Code to Download

$record{$key} = { count => $integer, flag => $boolean }

foreach my $item (LARGE_LIST) {
    $key = property($item);
...
        $record{$key}{flag} = 1;
    }
}