Select Code to Download

sub lookup {
  die unless wantarray; # call me in list context only
...
  my @results = map { lookup($_) } @_;
  return join ",", @results;
}

use Memoize;
memoize('lookup');
...
  unmemoize('lookup');
  memoize('lookup');
}