sub FormatPagedResults {
  my( $itemsCount, $itemsPerPage, $actualPageId ) = @_;

  # ... hier den algorithmus

  return \@pages;
} # FormatPagedResults