use strict;
use warnings;
use feature qw( say );

my @aa = ("A", "C", "D", "E", "F", "G", "H", "I", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "W", "Y");

my $pair;
for my $n1 (@aa) {
for my $n2...