Select Code to Download

my %seen;
$seen{$_}++ for @return, @remoteFilelist;
...
        #...
    }
}

#!/usr/bin/perl

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