for (1..100) { print "$_ "; print "\n" if ($_ % 5 ==0); # add a break (or other string) every 5 elements } #### @foo = map {$_*5} (1..10); # generate a list by fives. print join " ", @foo,"\n\n"; # see the fives. print ""; # replace with calls to CGI.pm as appropriate. for my $ctr (0..$#foo) { print " \n "; print " " for (($ctr*5)+1 .. $foo[$ctr]); print "\n \n"; } print "
$_
\n\n";