[Perl] Cherc des patterns dans +ieurs fichier

Salut,
Ultra débutant en Perl, je tente de faire un petit script de recherche de patterns/messages dans des fichiers C.

voici un extrait de mon script:
@files contient tous les fichiers C à scanner (path complet)
@msg_id contient une liste de messages, séparés par un saut de ligne
(genre
MON_MESSAGE_1
MON_MESSAGE_2
etc...),
y en a 2-3000 à peu près.

Et il faut que j'associe un msg_id avec un fichier C.
Donc faut que je parcours chaque fichier C pour chaque msg_id...

Mon algo est surement foireux, je débute...

Mes tableaux sont ok, le seul souci, c'est que le print qui affiche qqchose lorsque la recherche a trouvé un des msg ne marche pas...

# Run msg_id search through each file
foreach $file (@files)
{
# Parse C file to find MSG_ID
print "\n\t$file";

foreach $msg_id (@msg_id)
{
open (SRC_FILE, "$file");
while(<SRC_FILE>)
{
if(/$msg_id/)
{
# J'ai trouvé !
print "\n\t$msg_id --> $file";
}
}
close (SRC_FILE);
}
}

Merci pour votre aide !

Benoit