Каков наиболее элегантный способ расширения итератора в список в Perl?

У меня есть итератор с этим интерфейсом: $ hit-> next_hsp

Текущая реализация для его прослушивания:

my @list;
while ( my $hsp = $hit->next_hsp ) {
    push( @list, $hsp );
}

Теперь я думаю, что могут быть способы получше чтобы сделать это меньшим количеством кода. Что скажешь, укладчики?