I've never used grep before and it seems to have been what I was looking for all along. I changed your script a little but this is what did. I added an option when I run the script to be $occurance because it's not going to be the same number every time. Thanks a ton for everyones help.

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;
[download]