my @dos = split(/\s*/, $dosage);     # Split $dosage into an array at the spaces between the numbers
my @geno = split(/\s*/, $genotype);  # Do the same thing for $genotype