Vous n'enlevez pas la fin de remorquage des caractères de la ligne \ n à partir de votre dossier d'entrée que vous mettez dans $line ainsi le « renee » n'existe pas en votre gâchis mais le « renee \ n ».
Vous pouvez chomp l'entrée à partir de votre dossier des textes dégager ceci vers le haut comme below qui devrait faire le tour.
tandis que (mon $line = ) {
chomp $line ;
$caplist {$line} = $x ;
$x ++ ;
}