perl查找文件中重复出现的记录

#!/usr/bin/perl
my $in = $ARGV[0];
die "No input\n" if(!defined($in));
open RH,$in or die "$!";
my @lines = ; chomp @lines;
for(my $i = 0; $i < @lines; $i ++){
    for(my $j = $i+1; $j < @lines; $j ++){
        if($lines[$i] eq $lines[$j]){
        print $lines[$i]."\n";
    }
    }
}
close RH or die "$!";