Comment puis-je créer un tableau 2D en Perl?

Je suis en train de créer un tableau 2d en Perl

mon code:

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;

elle renvoie non.. parce que je veux retourner le tableau 2d.

Mise à jour

Je suis encore confus parce que quand j'exécute la requête, il me donne une liste de mots comme :

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

Je suis à l'aide de la boucle for par le biais de la langue, et pour obtenir tous les mots de la base de données

Le problème c'est que je veux en boucle et vous souhaitez que le tableau est ajouté au tableau 2d automatiquement.

OriginalL'auteur JoT | 2011-02-17