Not really an answer, sorry.

BTW, such tasks are exactly what coroutines will be in Perl6 for :)

You would just yield the next line from your sub into the caller for her to process it in a loop and then call the sub for the next line and so on.