Déclarer des variables ou un double tableau dynamiquement

Bonjour,

Exposé du problème :
j'ai un fichier txt formaté de la sorte
CFG3D 08/17/2009 20:22:56 625 1C58AFP9QM01A062 Main 0
CFG3D 08/17/2009 20:23:00 625 1C58AFP9QM01A062 Main 0
CFG3D 08/17/2009 20:23:10 500 1C58AFP9QM01A062 Flyto 0
CFG3D 08/17/2009 20:23:00 625 1C58AFP9QM01A062 Main 0
etant donné que je ne connais pas au préalable, les noms de la colonne 5, j'effectue un remplissage de tableau en fonction de ses noms avec split
ce qui donne un @tableau avec comme valeurs "Main" et "Flyto"

J'aimerais effectuer une addition des valeurs de la colonne 3 en fonction des valeurs présentes dans le tableau soit
pour "Main" => une $variable1 = 625+625+625
pour "Flyto" => une $variable2 = 500 +.....

questions:
si j'utilise la solution variable, comment puis je initialiser n $variables en fonction des n valeurs contenues dans le @tableau ?
si j'utilise un autre @tableau2 pour memoriser les additions, quel est la syntaxe à employer?
J'ai des mgs d'erreur en ecrivant cela

while ($i != ((scalar(@tableau))-1))
{
if ($tableau2[$i] eq $tableau[4])
{
$tableau2[$i]=$tableau2[$i] + $tableau[2]);
}
else
{
$i++;
}
}

Ya t'il une autre solution?
Qui peux m'aider ?
Merci d'avance

Essaie d'utiliser les balises CODE, ça sera plus lisible.
Tu lis ton fichier ligne par ligne.
Tu split chaque ligne et récupères les 2 valeurs dont tu as besoin.
Tu remplis un tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#!/usr/bin/perl   use strict; use warnings;     my %tab;   open my $file, '<', 'chemin' or die $!;   while (my $ligne = <$file>){ my ($num, $key) = (split /\s/, $ligne)[3,5]; $tab{$key} += $num; }   close $file;   foreach my $key (keys %tab){ print "$key\t$tab{$key}\n"; }

---

Et voila, c'est aussi simple que cela :).