Create split_ethnic_perl

Attempt to automate the splitting of ethnicity