Help for this page

Select Code to Download


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