Moose ассоциативный массив обьектов

Люди добрый! Подскажите. Только начинаю изучать Perl. Как можно создать ассоциативный массив из объектов? Чтобы можно было дёргать методы таким образом

print TEST->allLTS{'ONE'}->name;

Внутри процедуры создать массив получилось $task{$i}, но как это сделать с помощью Moose, чтобы он был доступен

Собственно мои попытки

package LTS;{
use Moose;
has 'name' => (is =>'rw', isa =>'Str',);
has 'id' => (is =>'rw', isa =>'Int',);
}
package TEST;{
use Moose;
#has 'allLTS' => (is =>'rw',isa =>'ArrayRef[LTask]',);
sub Create {
my $this = shift;
my %task=();
open(FILE, "<conf.ini");
while (<FILE>) {
my @spec = split(chr(9),$_);
my $i=$spec[0];
$task{$i}=LTS->new(name=>$_);
}
close(FILE);
}
}

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.