Какой псевдоним лучше использовать?

Question

Я хочу присвоить псевдонимы из массива source массиву хеш-значений

@$data{ $sth->{NAME_lc}->@* } =  $self->source->@*;

Как лучше всего выполнить эту задачу?

UPD
Здесь я хочу, чтобы хеш-значение ссылалось на значение массива.И если значение хеша изменено, соответствующее значение в массиве тоже должно быть изменено

Answer 1

Я нашел это решение:

use Data::Alias;
alias @$data{ $sth->{NAME_lc}->@* } =  $self->source->@*;

UPD
Спасибо @ amon за refaliasinglists:

\(@$data{ $sth->{NAME_lc}->@* }) =  \($self->source->@*)

UPD
Кажется, последние примеры не работают.Псевдонимы лексически ограничены.сообщается как RT # 133538

Data::Alias по-прежнему работает нормально

UPD
Data::Alias - самый ++ модуль наложения на metacpan.org так что я думаю, что это лучший метод на сегодняшний день.Пока refaliasing функция не будет исправлена.