...
Innen: for (my $i = $[; $i <= $#population; $i++) {
  ...
  if (...) {
    ... splices ...
    $i--
  }
}
...