for my $i(1..$pop->Count())