Select Code to Download

#!/usr/bin/perl

...
}

close $fh;

my %seen;
while (my @set = $perm->next) {
    my $str = join '', @set;
    print $fh "$str\n" if ! $seen{$str}++;
}