Select Code to Download

#!/usr/bin/perl -w
use strict;
...
for (keys %repeats) {
    push @diff, $_ unless $repeats{$_} > 1;
}

#!/usr/bin/perl -w
use strict;
...

@diff{ @list1 } = undef;
delete @diff{ @list2 };