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;