my %seen;
while (<ALLPERMUTATIONS>) {
    chomp;
    $seen{$_} = 1;
}
print "$_\n" for keys %seen;