Select Code to Download

    sub are_hashes_equal($$) {

...

        return 1;
    }

    ($a,$b) = ($b,$a) if keys %$b > keys %$a

    use Test::LectroTest;

...
        $h_diff{scalar each %$h}++;  # increment 1st value
        are_hashes_equal( $h, \%h_diff ) == 0;
    }, name => "differences in values are detected";

1..4
ok 1 - 'equal hashes are recognized as equal' (1000 attempts)
ok 2 - 'differences in quantity of keys are detected' (1000 attempts)
ok 3 - 'differences in values of keys are detected' (1000 attempts)
ok 4 - 'differences in values are detected' (1000 attempts)

#!/usr/bin/perl

...
    $h_diff{scalar each %$h}++;  # increment 1st value
    are_hashes_equal( $h, \%h_diff ) == 0;
}, name => "differences in values are detected";