my %seen; while (<ALLPERMUTATIONS>) { chomp; $seen{$_} = 1; } print "$_\n" for keys %seen; [download]
In reply to Re: Combine Two Scripts Into One by toolic in thread Combine Two Scripts Into One by csalzer