my @wanted;
for my $line ( @lines ) {
    my @fields = split /,/, $line;
    if ( $fields[2] eq '1' || $fields[2] eq '0' ) {
        push @wanted, $fields[4];
    }
}
@wanted = uniq @wanted;
print "$_\n" for @wanted;