perl_compare_hash_func.pl