my %cksums;
push @{$cksums{`md5sum $_`}}, $_ for glob($dir/*);
unlink( splice @{$cksums{$_}}, 1) || die $! for keys %cksums;