Deduplication via hardlinks and diff -qsr in Perl