perl去除重复行和排序

my($ref,$rec) = @ARGV;


if($#ARGV < 0 )
{
print "usage:perl count_rate.pl ?$refn";
exit(-1);
}

#open(frec,"$rec") or die "can not open $recn";
open(fref,"$ref") or die "2n";

open(fkey,">ref_key_$rec.txt") or die "4n";

$refline2;
$reffer2;
%ref_hash;
$key;
@refarray = ();

?@refarray = <fref>;

@refarray2=();

for my $refline2 (@refarray)
{
chomp($refline2);
$ref_hash{$refline2}=$refline2;
? ? }
foreach ?$key ( sort ?keys %ref_hash) ?#sort起到根据关键词排序的功能
{
? ?chomp($key);
#print ("key is $keyn");
if($key=~/[x80-xFF]+?/) ? ? ?#如果含有中文字符，可以不要
{
? push @refarray2,$key ;
? print ( fkey "$keyn");
}

}

close(fref);

close(fkey);