Help for this page
while (scalar @data) { for (1 .. 100) { ... # Print the line in whatever format you want }