Sie entfernen die schleppenden Buchstaben des Zeilenenden \ n nicht von Ihrer Eingangsakte, die Sie in $line setzen, also „renee“ existiert nicht in Ihrem Durcheinander, aber „renee \ n“ wurde.
Sie können chomp der Eingang von Ihrer Textdatei, dieses wie below oben löschen, das den Trick tun sollte.
während (mein $line = ) {
chomp $line;
$caplist {$line} = $x;
$x ++;
}