Select Code to Download

my $iter = get_value_iter($oWkBook);
while ($iter->(my $item_ref)) {
   $$item_ref =~ s/^\s+\n$//;
}

sub get_value_iter {
   our $val; local *val = \$_[0];
...
      };
   }
}