use strict; use warnings; use Test::More; use Test::Deep; my @x = ( { a => 'A', b => 'B', c => [ { foo => 'bar' }, { baz => 'qux' } ] }, { d => 'D', e => 'E', f => [ { xyz => 'abc' }, { zzz => 'ZZZ' } ] }, ); my @y = ( { d => 'D', e => 'E', f => [ { xyz => 'abc' }, { zzz => 'ZZZ' } ] }, { a => 'A', b => 'B', c => [ { foo => 'bar' }, { baz => 'qux' } ] }, ); cmp_deeply( \@x, bag(@y) ); done_testing;