my @n = 'A'..'X';
my $comboObj = Math::Combinatorics->new(count => 4,
	data => [@n],
);