use warnings;
use strict;
use Digest::MD5 qw(md5);
my %SEEN;
while (<>) {
    chomp;
    my $digest=md5($_);
    if ($SEEN{$digest}++) {
       printf STDOUT "Dup: [%s] seen %d times\n",$_,$SEEN{$digest};
    }
}