my %foo_cache;
sub foo {
   @{$foo_cache{join ",", @_} ||= [ do {
      ... rest of sub goes here
   }]}
}