[Perl] Comparar valores en un mismo archivo

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

Hola lista,

Estoy haciendo un scrip para comprobar si hay valores repetidos en el
mismo archivo. Lo q hice fue:

Abrir archivo y meter los valores en una tabla ($name[count] = $login;),
open (LECTOR, "$datainfo/students_creados") || die "ERROR: NO Encuentro el
archivo 'students_creados'\n";
while (<LECTOR>) { #PRIMER WHILE
chomp;
	@linea = split;
	$facul = $linea[4];
	$facul =~ tr/A-Z/a-z/;
	$facult = substr($facul, 0, 3);
	if ($facult eq 'cie') {
   	$login = $linea[7];
	$name[$count] = $linea[7];
	$count += 1;
.
.
.

luego cerrar el archivo y dentro de un for abrir nuevmente el archivo para
luego comparar pero alli esta mi problema

for ($i = 0; $i <= $num; $i++) {
open (LECTOR1, "$datainfo/students_creados") || die "ERROR: NO Encuentro
el archivo 'students_creados'\n";
while (<LECTOR1>) { #PRIMER WHILE
 #   if ($countline < $linejump){
 #        $countline++;
#} else {
chomp;
	@linea = split;
	$facul = $linea[4];
	$facul =~ tr/A-Z/a-z/;
	$facult = substr($facul, 0, 3);
	if ($facult eq 'cie') {
   	$login = $linea[7];


En esta seccion es donde tengo problemas------

if ($name[0] =~ /$login/i){
 	    $count1 += 1;
            if ($count1 > 1){
                open (PRINTER, ">>$datainfo/repeticiones");
                print PRINTER "$login   $count1 \n";
		            }       }
	}#PRIMER WHILE
close LECTOR1;


Alguna sugerencia y gracias por la ayuda