Select Code to Download

sub foo {
  ($foo_cache{...} ||=
...
     };
   )->();
}

my %foo_cache;
sub foo {
...
   :
   $foo_cache{$index}[-1];
}

sub list {
  wantarray ? @_ : $_[-1];
}