my %seen = map { $_ => 1 } @AoD;
@AoD = keys(%seen);