Tu peux utiliser une table de hashage de la manière suivante :


open (F, "< xxx") or die("pbe ouverture: $!");

my @tableau = ();
my %line_count;
my $nbre=0;

while( my...