Perl problème boucle

Bonjour,

mon script permet d'ouvrir des fichiers de configurations de les parcourir en recherchant une ligne de config spécialement, et quand cet ligne est trouvé j'écris toutes les lignes qui suit jusqu'au "end"

mon problème est que mon script trouve ma première config mais ensuite ne trouve pas les suivante et je ne comprend pas pouquoi.



for($i = 1; $i <= $tabDSM[0] ; $i++)
{
$retour= $tabDSM[$i];
chomp($retour);
$concat ="/root/Downloads/CONF".$retour.".txt";
open(FIC4,"<", $concat) || die ("Impossible d'ouvrir le fichier $tabDSM[$i]");
print "le fichier Ouvert est : $tabDSM[$i]\n";
for($j = 1; $j <= $tabPhysique[0]; $j++)
{
$chariotPhysique= $tabPhysique[$j];
chomp($chariotPhysique);
my $p_conf="begin destination ($chariotPhysique)";
print "je recherche :$p_conf\n";
while(<FIC4>)
{
chomp($_);
if($_ eq $p_conf) {
$flag = 1;
print "j'ai trouvé :$p_conf\n";
}
if($flag == 1) {
print FIC3 "$_\n ";
}
if($_ eq $fin) {
$flag = 0;
print FIC3 "\n";
}
}
}
close(FIC4);
}


et voici le résultat :

le fichier Ouvert est : dsm_Email03
je recherche :begin destination (p_email03_1)
j'ai trouvé :begin destination (p_email03_1)
je recherche :begin destination (p_email03_Z)
je recherche :begin destination (p_email)
je recherche :begin destination (p_email02)
je recherche :begin destination (p_email03)
je recherche :begin destination (p_email02_1)
je recherche :begin destination (p_emailZZZZZ)
le fichier Ouvert est : dsm_Email
je recherche :begin destination (p_email03_1)
je recherche :begin destination (p_email03_Z)
je recherche :begin destination (p_email)
je recherche :begin destination (p_email02)
je recherche :begin destination (p_email03)
je recherche :begin destination (p_email02_1)
je recherche :begin destination (p_emailZZZZZ)
le fichier Ouvert est : dsm_Email02

je recherche :begin destination (p_email03_1)
je recherche :begin destination (p_email03_Z)
je recherche :begin destination (p_email)
je recherche :begin destination (p_email02)
je recherche :begin destination (p_email03)
je recherche :begin destination (p_email02_1)
je recherche :begin destination (p_emailZZZZZ)



y a surement un élément que je rate si quelqu'un à une idée je suis preneur

Merci d'avance