Help for this page

Select Code to Download


  1. or download this
    foreach my $item (LARGE_LIST) {
        $key = property($item);
    ...
            $record{$key} |= 1;
        }
    }
    
  2. or download this
    for my $key (keys %record) {
        my $count = $record{$key} >> 1;
    ...
        print "$key\n" if $count >= 2 and $flag;
        # ...
    }