Select Code to Download

use strict;
use warnings;
...
1,2,3,4,5,6
3,4,5,7,8
3,6,8,9

for (@sets) { $c{$_}++ for (@$_); }