open RH, $ARGV[0];

%dict = ();
while(<RH>){
 chomp;
 $ln = $_;
 if($dict{$ln}){
  $dict{$ln} ++;
 }else{
  $dict{$ln} = 1;
 }
 
}
while(($k,$v) = each %dict){
 print $k ."\t" . $v. "\n";
}

close RH;

uniq.pl