Perl: problème avec un hashage de tableau

Bonjour
Je souhaite parcourir un très gros tableau de données chiffrées (>10000 lignes), pour lequel chaque colonne présente une entête descriptive (classée par ordre alphanumérique). La structure hashage de tableau semble toute indiquée mais le problème est que je n'arrive pas à déréférencer correctement pour contrôler les valeurs renseignées. Merci de votre aide! Voici ci-dessous comment je procède:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my @table; my %hash; my $i = 0; while (my $line == <FILE>) { $i++; @table = split(/\t/,$line); ### séparateur = tab if ($i==1) {foreach (@table) {$hash{$_} = []);}} else {foreach (keys(%hash)) {${$hash{$_}->[$i] = shift(@table);} } foreach my $key (keys(%hash)) {foreach my $i (0..$#table) {print "${$hash{$key}}->[$i]\t";}}

---

mes données ressemblent à ça au départ:
colA colB colC
1 1 0
15 2 0
etc

MERCI!

Ce serait bien de mettre du code parfaitement indenté la prochaine fois.
merci.

Code:

---

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

my @table; my %hash; my $i = 0; while ( my $line == <FILE> ) { $i++; @table = split( /\t/, $line ); ### séparateur = tab if ( $i == 1 ) { foreach (@table) { $hash{$_} = [] ); # <============ ????? } } else { foreach ( keys(%hash) ) { ${ $hash{$_}->[$i] = shift(@table); }; # <============ ????? } foreach my $key ( keys(%hash) ) { foreach my $i ( 0 .. $#table ) { print "${$hash{$key}}->[$i]\t"; # <============ ????? } } } }

---