Select Code to Download

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

for my $key (keys %record) {
    my $count = $record{$key} >> 1;
...
    print "$key\n" if $count >= 2 and $flag;
    # ...
}