A previous discussion on this subject lies here: Find duplicate files.. Much the same conclusion: use Digest::MD5.

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'