Select Code to Download

Select or download this

@haplotypes = (); ## THIS IS AN ARRAY DECLARATION
.....
push @{ $haplotypes{ $currentPop} }, [ @temp ]; 
## THIS ...........^............^...................is a hash 
## with a numeric key, that increments from zero, by 1!

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

use List::Util qw[ shuffle ]; ## near the top of your program.
...

    @{ $haplotypes{$currentPop } } = shuffle @{ $haplotypes{$currentPo
+p } };

Select or download this
```
    push @total, $currentPop;
```

Select or download this

  for($i = 0; $i <  $sampleSize{$_}/2; $i++) {

Select or download this

Use of uninitialized value in division (/)...