foreach my $page_num (1 .. scalar @pages) {
     print "<A HREF='script.pl?page=$page_num'>page $page_num</A>";
}