use Test::More qw/no_plan/; use Test::Differences; eq_or_diff \%h1, \%h2, "testing hashes"; __END__ not ok 1 - testing hashes # Failed test 'testing hashes' # in /tmp/h at line 11. # +----+-----------+----+-----------+ # | Elt|Got | Elt|Expected | # +----+-----------+----+-----------+ # | 0|{ | 0|{ | # * 1| a => 1, * 1| e => 5, * # | | * 2| a => 3, * # | 2| b => 2, | 3| b => 2, | # * 3| c => 3 * 4| d => 4 * # | 4|} | 5|} | # +----+-----------+----+-----------+ 1..1 # Looks like you failed 1 test of 1.