- or download this
[0] -> 1 4 6 8 9 ...
...
[5] -> 4 5 7 8 9 ...
[6] -> 1 4 5 7 8 ...
...
- or download this
1. 5 -> is shared between all four arrays ([1],[2], [5], [6])
2. 4 -> is shared between 3 arrays ([2],[5], [6])
- or download this
for (1,2,5,6){
foreach $ar (@{$D[$_]}){
...
# sort %hash
#pick top two