my $maximum = 10;

my @array = 1 .. 43;

# max 10 Elemente auf einmal rausholen; die Elemente werden aus @array entfernt!
while ( my @partial = splice( @array, 0, $maximum ) ) {

  # DB Update oder sonstwas treiben ...
  printf "fetched %d elements from array.\n", scalar @partial;
  
}