sub foo { while (<INPUT>) { ... } }
for (@array_of_numbers) {
   ...
   foo()
   ...
}