Salut,

Faire parcourir chaque ligne du fichier dans une boucle :
open(fich, "fichier.txt");
while&#40;$ligne = <fich>&#41; &#123;

Extraire la clé de la ligne :
&#40;$cle, $couples&#41; = $ligne =~...