Problem en langage PERL

Bonjour,
je vous met ci dessous un programme que j'ai ecrit en langage PERL
les permieres lignes marchent.
Comme je suis en stage en angleterre donc les commentaires que j'ai fait sont en anglais pas forcement tres bon.
#!/usr/bin/perl -w
open (OUT, ">test3.txt");
##open VCS file
open(FILE,"<essai1.vcs");
##initilization
$t=0;
##read the file and search the ligne begining by guid(reference of material)
##and mass(density mass of each material) and take it in a matrix
while ($lines=<FILE> and $t<43)
{
if ($lines=~" <GUID>")
{
if ($t>25)
{
$lineg=$lines;
$g=substr($lineg,12,36);
}
$t++
}
if ($lines=~" <Mass>")
{
$b=substr($lines,12,4);
my(@row) = ($a, $b);
push (@matrix , \@row);
}
}
foreach $n (@matrix)
{
foreach $k (@{$n})
{
print OUT "$k ";
}
print OUT "\n";
}
##first matrix column and line is number 0
##in the description we have $matrix[line][column]
##here we have in the column number 0 the reference GUID and the column 1 MASS witch is a densitymass
##for the first column of each line of the matrix we looking for the first line which begin by " <Material>"
##we just want to look at the first one and to compare it to $c
for ( $j=0; $j<15; $j++)
{
$i=0;
$c=$matrix[$j][0];
print OUT "$c\n";
while ($lines=<FILE>)
{
if ($lines=~" <Material>")
{
$i++
if ($i = 1)
{
$lined=$lines;
$d=substr($lined,22,36);
print OUT "$d\n";
if ($c = $d)
{
$densitymass=$d;
}
else
{
print OUT "b\n";
}
}
}
}
}
Voila le problem c'est qu'il ne compare rien et meme ne m'ecrit plus rien sur mon fichier de sorti donc voila le truc
Je vous remercie pour vos reponse rapide