Add perl script to remove samples with divergent ancestry