# chomp $text;
# $text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "$d|$sfi|$k|$a";
return 1 if exists $dup{$dupkey};
# chomp $text;
# $text = substr($text, 0, $duplth) if length $text > $duplth;
my $dupkey = "$d|$sfi|$k|$a";
return 1 if exists $dup{$dupkey};