foreach (@array) {
   ...
   my $reader = ...;
   ...

   while ($_ = $reader->chunk) {
      ...
   }

   ...
}