my %seen;
@AoD = grep !$seen{ join(',', (sort {$a<=>$b} @$_ )) }++, @AoD;