@{$TempList{$currentPop};} = ();
	while (@{$haplotypes{$currentPop};}) {
		push @{$TempList{$currentPop};}, splice(@{$haplotypes{$currentPop};}, rand @{$haplotypes{$currentPop};}, 1);
	}
	@{$haplotypes{$currentPop};} = @{$TempList{$currentPop};};