Какой у Perl аналог питоновского iter(callable, sentinel)?

Сходу решение не скажу, но может тут найдёшь что-то для себя полезное.

Зачем хранить в памяти временные данные, если можно запихнуть содержимое map-блока в while-блок?

Куда короче-то и зачем? А красота в перле наверняка не такая, как в питоне.

Плюсую вариант от AITap

my @result;
while (my $item = $iter->()) {
	push @result, # ... $item magic ...
}

а зачем менять

while (my $item = $iter->()) {...}

my @arr
while (my $item = $iter->()) { push @arr, $item };
map {...} @arr;

p.s. еще вариант:

for (;$_=$iter->();) {...}

впрочем можно заинлайнить:

map { ... } map { my @a; while(my $i = $_->()) { push @a, $i }; @a } $iter;

Чтобы спрятать лишнюю сущность (@arr) в лексической области блока do {}:

map { ... } do {
    my @arr;
    while (my $item = $iter->()) { push @arr, $item; }
    @arr;
};

Хотя правильный совет уже дали, можно логику из «map BLOCK LIST» перенести в while.

И правда. Не пишу с нуля, я правлю кусок что уже был и за тремя соснами леса не увидел.

Лучший вариант это my @items = $obj->items(). Плюсы: быстрее, надежнее, короткость — сестра таланта. Если есть возможность и желание, почему не пойти Ъ-путем? Разыменовывание анонимной функции, невозможность проверки на исключение, невозможность лаконично проверять результат функции это все минусы текущего решения.

ИМХО.