Perl script to determine closest similarity of an exome to 1000 Genomes super populations