open my $fh2, '<', '/tmp/mlist.txt' or die "unable to open file '$file' for reading : $!";
open my $fh9, '>', '/tmp/listk.txt' or die "unable to open file '$file' for reading : $!";
while (<$fh2>) {
   my @fields = split(',', $_);
 local $" = ',';
       if ($fields[2] eq '1' || $fields[2] eq '0') {
             print $fh9 "@fields[4]\n" if /MONTHLY/ && !/,-,/;
             }
           }
           close $fh2;
           close $fh9;

##</code><code>##

open my $bpfh1, '<', \$forbpjoutput or die $!;
  while (<$bpfh1>) {
my @fields = split(',', $_);
my $fields;
 local $" = ',';

       if ($fields[2] eq '1' ||$fields[2] eq '0') {
             print "THESE ARE THE>>> $fields[4]\n" if /MONTHLY/ && !/,-,/;
        
close $bpfh1;
             }
          }