open(FILE, "sorted.file");

while (<FILE>) {


if($_ != $previous) {

   print $current;
   $count++;

}

$previous = $_;

}

print "There are $count unique records";