my %dups;
$dups{ join('~',@$_[0,2,3]) }{$_->[1]}++ for @AoA;