Как создать 2D-массив в Perl?

Я пытаюсь создать 2-мерный массив в Perl

мой код:

my @wordsList=();
my @words=();

for ($id=0; $id<=@language.length; $id++)
{

        my $eng = $db->selectall_arrayref("select word from words 
                                                    left outer join language
                                                    on words.languageId = language.languageId
                                                    where words.languageId = $id
                                                    ;");


        foreach $eng(@$eng)
        {   
        my($word) = @$eng;
        $ref_to_Array->[$id][$word] = @words($id,$word);

            }
                return $words($id, $word);
}

$wordsList= NextWords();
print $wordsList;

он не возвращает ... потому что я хочу вернуть массив 2d.

Обновление

Я все еще не понимаю, потому что, когда я выполняю запрос, он дает мне список слов вроде:

select word from words where language_id = 1 
(1=english, 2 - chinese, 3 - french) 

Я использую цикл for через язык и для того, чтобы получить все слова из базы данных

Проблема в том, что я хочу выполнить цикл и хочу, чтобы массив автоматически добавлялся в 2-мерный массив.