my @list = (@lines);
foreach (@lines) {
    my @fields = split /,/;
    if ( $fields[2] eq '1' || $fields[2] eq '0' ) {
     @arr1 = do {"@fields[4]\n"};

}
}
my @out = uniq @arr1;
print "this is @out";