use strict;
use warnings;
use List::Util 'shuffle';
my @list = shuffle('A'..'N', 'I'..'K');
my $pick = 'J';
++(my $after_pick = $pick);
print map substr($_,1), sort map {$_ lt $pick ? "$after_pick$_" : "$pick$_"} @list;