open IN, '<'.$inFlNm or die "Unable to open >$inFlNm< : $!\n";
READFILE:
while( <IN> )
{
    chomp;
    next READFILE if $occurance > grep $_ != 0, split m{,};
    print OUT qq{$_\n};
}
close IN;