for (@lines) {
	my @fields = split /,/;
	if ( $fields[2] eq '1' || $fields[2] eq '0' ) {
		print "THESE ARE THE>>$fields[4]\n" if /MONTHLY/ && !/,-,/;
	}
}