#!/usr/bin/perl

use Test::More qw(no_plan);
use Test::Deep;

my (@this,@that);

@this = ( { fred => 1 }, { wilma => 1 } );
@that = ( { wilma => 1 }, { fred => 1 } );

cmp_deeply(\@this, bag(@that), 'cmp_deeply Deep Order Diff');