my %foo_cache;
sub foo {
   my $index = join ",", @_;
   $foo_cache{$index} ||= do { .... };
   wantarray ?
   @{$foo_cache{$index}
   :
   $foo_cache{$index}[-1];
}