A side benefit is that when you are done it will be relatively little work to move your script to running against a real relational database.

use strict;
my @list_defs = (
 {2 => 'yes', 3 => ''},
 {2 => 'yes', 7 => 'yes'},
 {2 => 'yes', 3 => '', 6 => 'yes'},
);
my @lists;
while (<FILE>) {
 my @vals = split /\|/;
 my $name = $vals[0];
 my $i = 0;
LIST: foreach my $l (@list_defs) {
  foreach (keys %$l) {
   next LIST unless $vals[$_] eq $l->{$_};
  }
  push $lists[$i], $name; # or \@vals;
  $i++;
 }
}
[download]

I'm sure there are quicker ways, and more readable ones.

dave hj~

while (<IN>) {
    ($name, @fields) = split '|';
    for (0..5) { $value += 2**$_ if $fields[$_] }
    $people{$name} = $value;
}

# People with fields 0 and 3 but nothing else
for (keys %people) {
    print if $people{$_} ^ 58;
}
[download]