while ( chomp( my @lines = $it->() ) ) {