my $page_heading;
my @details;
my $DETAILS_PER_PAGE;
my $FORM_FEED_CHARACTER;

PAGE:
while (@details) {
    print $page_heading;
    DETAIL:
    for (1..$DETAILS_PER_PAGE) {
        print shift @details;
    }
    print $FORM_FEED_CHARACTER;
}