Recherche:

Bah, ce n'est peut-être pas la solution la plus élégante (et encore...), mais si ça marche et fait ce que tu veux, c'est le principal.

Si je comprends bien, il suffit d'ajouter une seconde condition:


if ($cols[2] eq $nature and $cols[3] eq $chplex) { # ...

Voici à peu près ce que je ferais:


while(my $ligne = <LISTE>) {...