my %seen;
@AoD = grep !$seen{ join(',', @$_) }++, @AoD;