Non state rimuovendo l'estremità di trascinamento dei caratteri della linea \ n dal vostro archivio di entrata che mettete in $line in modo da “il renee„ non esiste in vostro hash ma “il renee \ n„.
Potete chomp l'input dalla vostra lima di testo eliminare questo in su come sotto che dovrebbe fare il trucco.
mentre (mio $line = ) {
chomp $line;
$caplist {$line} = $x;
$x ++;
}