foreach $Population (@total) {
    print "Population $Population\n";
    print OUT "Population $Population\n";
    print "$sampleSize{$Population}\n";

    for($i = 0; $i <  $sampleSize{$Population}/2; $i++) {
        @pair = splice @{$RandHapl{$Population}}, 0, 2;
        #print "[@pair]\n";
        print "$pair[0][0]\t$pair[1][0]\t$pair[0][1]\t$pair[1][1]\t\n";
        print OUT "$pair[0][0]\t$pair[1][0]\t$pair[0][1]\t$pair[1][1]\t\n";
    }
}