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


test (
      [ <{b,{c,d}e}> ],
      [ <{b,ce,de}> ],
     );

test (
      [ <{c,d}e> ],
      [ <{ce,de}> ],
     );



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


done_testing;