sub foo {
    $list = $foo_cache{join ',', @_} ||= [ do {
        ... rest of sub goes here
    }];
    want_array ? @$list : $list;
}