Select Code to Download

...clipped... (not applicable)
#I was computing the intersection and not the union.

my @unique = do{
        my %seen;
        undef @seen{@list1, @list2, @list3};
        sort keys %seen;};

package ListMerger;
use strict;
...
    };
}
1;