[Perl] script q alparecer no funciona

[Ing. Ricardo Cumberbatch L. (PANNet - URC)]

Q tal lista,

Hice un script el cual busca palabras repetidas de dos archivos, es decir
uso un archivo A  para sacar una palabra y buscarla en el otro archivo B 
si no la encuentra pasar a la siguiente palabra en archivo A.

Pero no me funciona eso creo =-P
Este es mi script

my $datainfo = '/gupl/GenerarUser';
$count = 1;

open (LECTOR, "$datainfo/students_creados") || die "ERROR: NO Encuentro el 
archivo 'students_creados'\n";

while (<LECTOR>) { #PRIMER WHILE
	chomp;
	@linea = split;
	$name = substr($linea[0], 0, 4);
open (LECTOR, "$datainfo/passwd5") || die "ERROR: NO Encuentro el archivo
'students_creados1'\n";

while (<LECTOR>) { #SECOND WHILE
	chomp;
	@linea1 = split;
$name1 = substr($linea1[0], 0, 4);
if ($name1 =~ /$name/i){
open (PRINTER, ">>$datainfo/repeticiones");
print PRINTER "$linea1[0]   $count \n";
$count+= 1;
close (PRINTER);
}
}# SECOND WHILE
}#PRIMER WHILE


Haber si he obviado algo y gracias