note artist If you are generating the lists, you can also use some type of combination module such as [cpan://Math::Combinatorics]. <code> use Math::Combinatorics; my @aminoacids = qw(Tyrosine Glycine Leucine); print join("\n", map { join " ", @$_ } permute(@aminoacids)),"\n"; </code> 439591 439591