Quick and dirty de-duplication Perl script

Hacked out this relatively simple Perl script; took the backup of photos and videos from my old iPhone X from 104GB across 41,188 files, to 82G and 25,279 files. One of these days I have to build my “dedupe’d” filesystem. But today is not that day. This script is a little braindead but it worked for this purpose, where I had multiple files that looked like this:

bfea8af574bedb735a089ce423eba8af: 3 files

Removing: ./IMG_8963 1.JPG

Removing: ./IMG_9868 1.JPG

Keeping: ./IMG_9868.JPG

144d98e4b6b79e8ed3ed8baa70cca014: 2 files

Keeping: ./IMG_6323 1.JPG

Removing: ./IMG_6323 5.JPG