There is a variable that tracks the current line number. It's from the time when perl had to format reports on line printers and had to skip the fold at the right time. Could you use the whole report printing mechanism?