add a new script to filter genotypes, based on the R script from Martha, but implemented in Perl.