my @list= sort ('A'..'B'); # Find unique permutations for AB?
my $cnt;
my @list1;