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