Select Code to Download

# Normalise the data.
@$_ = sort { $a <=> $b } @$_ for @AoD;
...
# Filter out duplicates.
my %seen;
@AoD = grep !$seen{ join(',', @$_) }++, @AoD;