You might want to give Test::Deep a look, it has saved me many hours of tedious coding to check/verify large data structures. The documentation can seem a little daunting at first, but give it some time, and you will find it can be very useful.