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