какой еще код потребителя? причем он тут?

в этом месте ты массив сложил, после return эти ссылки исчезли

будут те, которые в потребителе

т.е. там, куда return

ну и? до него (потребителя) содержимое по ссылкам доедет? не просрется не перезапишется чем-то еще?

foreach () { 
$ret = ext_sub();
push @res, [ 'xxx', \$ret->{value} ];
}
return @res;

Чтобы по простому... Не передавайте значений. Передавайте ссылки. Тогда точно не будет копирования.

В $ret вернули или скаляр или ссылку на хеш / массив (ссылка вообще так-же является скаляром, но размером ссылки можно пренебречь).
Его уже можно передавать дальше. Ничего страшного не будет.
Дальше вы создаете @res. Это массив. При return @res он будет скопирован, а потом изначальный массив будет удален (тут могу ошибаться, так как сюда прямо просится оптимизация, возможно она уже есть). Когда вы будете принимать ответ вы напишите или:
@result = your_sub_with_foreach() или ($res1, $res2 ...) = your_sub();
В первом случае так-же будет копирование (уже 2е). Во втором - массив будет преобразован в список(немного виртуальный тип данных, который существует только в момент выполнения оператора) и из него будут выбраны первые n значений которые будут помещены в $res1, $res2 и т.д.

Для ухода от таких проблем достаточно заменить ваш return на return \@res в этом случае функция вернет ссылку на массив и принимающая сторона будет выглядеть так: my $res = your_sub(); $res->[0] - первый элемент массива. В этом случае копирований не будет (вернее будет, но только ссылок, что незначительно).

В перл всё передается по ссылке

Доедет

Замерьте сколько у вас есть памяти. Создайте массив из одной строки так чтобы 2/3 памяти было съедено, а потом сделайте return @arr

Ну и примите его с другой стороны в @arr2 ессно

Хотя нет... Тут может прокатить из-за CoW на строке

в любом случае в моем пример 'xxx' -- маленькая строка, гинабйты -- они в $ret->{value}

Здесь есть человек, которого осмысленно спросить про OAuth об Гугла?

Это не ессно, т.к. именно в момент «принятия» оно начнет жрать. А вот если я это приму в print length for func() то не вижу проблем

что-то у меня полное впечетление что Net::Amazon::S3 -- не тред-сайф

Память из под sv не освобождаетсяв систему. Из под самих sv (скруткур). Память из под строк, массивов (то есть массив указателей), бакетов в хеше и прочих вспомогательных аллокиций - еще как отдается назад

Потому что все это не на арене вделялось а через маллок

my $v = 0;
print $v, "\n";
mysub($v);
print $v, "\n";
sub mysub {
    $_[0]++;
}

И что? Я про массивы вы про скаляры...