Usted no está quitando el extremo que se arrastra de los carácteres de la línea \ n de su fichero de entrada que usted ponga en $line así que el “renee” no existe en su picadillo sino que el “renee \ n”.
Usted puede chomp la entrada de su archivo de texto aclarar esto como below que deba hacer el truco.
mientras que (mi $line = ) {
chomp $line;
$caplist {$line} = $x;
$x ++;
}