foreach sur array imbriqués

Bonjour,
J'ai des Array de ce type:
     #!/usr/bin/perl
     use strict;
     use warnings;

     my @lignes=('r','d', 'a', 'o',);

     my @extrait_fichier=(
         ('a', "dsforigje"),
         ('r', "dsvvc"),
         ('a', "vcxvcxvcx"),
         ('o', "fdods"),
         ('d', "vvcxvcvxczsz"),
         ('o', "qssssss"),
         ('o', "ddddddddddd"));

     foreach my $lettre (@lignes)
     {
         foreach my $enreg (@extrait_fichier)
         {
             if ($lettre eq $enreg[0])
             {
                 print $enreg[1];
             }
         }
     }

C'est lié à mon problème de remise en ordre de fichier de log.
Le souci est que "$enreg" est un tableau.
Mais si je mets "@enreg", alors il dit qu'il lui manque le "$" qu'il 
faut à tout "foreach".
Plutot que de demander comment résoudre mon problème en particulier, je 
voudrais vou demander comment on fait pour foreach-er de manière 
imbriquée des array d'array d'array... de manière générale.

Merci d'avance


-- 
Huile Essentielle de Camphre http://www.huile-camphre.fr
Infogerance http://www.infogerance.us
(Serveurs, Postes de travail, Développement logiciel)