sub foo { while (<$fh>) { ... } }
for (@important) {
   ...
   foo();
   ...
}