voila j'ai trouvé la solution , bon vu que je suis tt nouveau ds la programation peut etre il y aura des solutions plus simples. donc voila pr ceux qui veulent ma solution :
while( <FILE> )
{
@words = split( /\W+/);
push @TdT, [ @words ];
}
while ($i< $#TdT)
{
for $j (5..10)
{
print "$TdT[$i+2][$j] ";
}
print "$TdT[$i+3][1] ";
print "$TdT[$i+3][2] ";
print "$TdT[$i][6]\n";
$i+=11;
}

enfin merci à Moi :)