push @{ $haplotypes[ $currentPop ] }, [ split ];