open( FH, "filename" ) || die "no way man\n";
while ( <FH> ) {
    if ( $done{$_} ne "" ) {
        $dup++;
    } else {
        $done{$_} = 1;
        push( @dups, $_ );
    }
}