use of perl hashes to compare files