... {
    push @pages, $current_page;
}

# spaeter
for my $i (0 .. $#pages) {
    # "Seite $i/$#pages" hinzufügen
}