Help for this page
#!/usr/bin/perl ... } close $fh;
my %seen; while (my @set = $perm->next) { my $str = join '', @set; print $fh "$str\n" if ! $seen{$str}++; }