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><code>##

ABCABC
ABCEFG
ABCKLM
ABCXYZ
EFGABC
EFGEFG
EFGKLM
EFGXYZ
KLMABC
KLMEFG
KLMKLM
KLMXYZ
XYZABC
XYZEFG
XYZKLM
XYZXYZ