#!/usr/bin/perl

use strict;
use warnings;
# we are going to run a loop the mtdn subspecies of the prairie hen to Tympanuchus cupido cupido to see which one is most similar percentwise. Then we will select the closest relative and the nucelotides with heath hen mtdna. 
# What do I do next?