for (my $i=1; $i <= $pop->Count(); $i++)