#!/usr/bin/perl

use strict;
use warnings;
use Digest::MD5;

my @allfiles = ...;   # your file lists merged (including paths)

my %by_md5;

for my $file (@allfiles) {

    open my $fh, "<", $file or die "Couldn't open '$file': $!";
    binmode $fh;
    
    my $md5 = Digest::MD5->new();
    $md5->addfile($fh);
    my $digest = $md5->hexdigest();  # or ->digest() -- hexdigest is just more "dumping-friendly"...

    push @{ $by_md5{$digest} }, $file;
}

for my $digest (grep @{$by_md5{$_}} > 1, keys %by_md5) {
    print "duplicates: @{ $by_md5{$digest} }\n";
}