U verwijdert niet het slepende eind van lijn\ n karakters uit uw inputdossier dat u in $line zo „renee“ niet bestaat in uw knoeiboel maar „zet renee \ n“.
U kunt chomp de input van uw tekstdossier dit als onderstaand ophelderen die de truc zou moeten doen.
terwijl (mijn $line = ) {
chomp $line;
$caplist {$line} = $x;
$x ++;
}