note 2teez <p> Or you could simply use a foreach loop like so: <code> use warnings; use strict; my @three_mers = qw( ABC EFG KLM XYZ); foreach my $mers_first (@three_mers) { foreach my $mers_sec (@three_mers) { print $mers_first, $mers_sec, $/; } } </code> OUTPUT <code> ABCABC ABCEFG ABCKLM ABCXYZ EFGABC EFGEFG EFGKLM EFGXYZ KLMABC KLMEFG KLMKLM KLMXYZ XYZABC XYZEFG XYZKLM XYZXYZ </code> </p> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-918402"> If you tell me, I'll forget.<br> If you show me, I'll remember.<br> if you involve me, I'll understand.<br> --- Author [unknown to me] </div></div> 998240 998240