Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...

push @{$dups{join '~', @{$hoa{$_}}}}, $_ for sort keys %hoa;
print map {join (" ", @{$dups{$_}}), "\n"} grep @{$dups{$_}} > 1, keys
+ %dups;

Select or download this
```
array1 array3 array6
array2 array4
```