use v5.12;
use warnings;
use Data::Dump;
use Test::More;

test (
      [ <{a,aa}> ],
      [ <{,a}{a}> ],
      [ <{a}{,a}> ],
      [ <a{,a}> ],
      [ <{,a}a> ],
     );

sub test {
    my @g = @_;
    my (%h1,%h2);
    for my $i (0..$#g) {
        for my $j ($i+1..$#g) {
            is_deeply(
                      [sort @{$g[$i]}],
                      [sort @{$g[$j]}],
                      "$i,$j")
              or ddx $g[$i],$g[$j];
        }
    }
}

done_testing;