my @list = (@lines);
$array_element = 0;
foreach my $line (@lines) {
    my @fields = split /,/ $line;
    if ( $fields[2] eq '1' || $fields[2] eq '0' ) {
     #@arr1 = do {"@fields[4]\n"};
     splice @arr1, arr1[$array_element], 1;
}
$array_element++;
}
my @out = uniq @arr1;
print "this is @out";