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

for (@list)
{
  
my %dmphash;


    unless (exists $dmphash{$_})
                {
                         my $file = "/tmp/loc/" . $_ . '.txt';
                        open(my $fh, '>', $file)
                        or die "Cannot open file '$file' for writing: $!";
                            $dmphash{$_} = $fh;
                                }