Select Code to Download

@array_of_arrays=(@array1A, @array1B, @array2A,@array2B…@arrayNA,@arra
+yNB);

my @a1A = qw/a b c d/;
my @a1B = qw/p z e t i u/;
...
my @AoA = \(@a1A, @a1B, @a2A, @a2B);

my @sorted = sort { @$a <=> @$b } @AoA;

my %HoA = (
  "a1A" => \@a1,
...
  "a2A" => \@a2A,
  "a2B" => \@a2B
)

my @sorted = sort {
       substr($a, 0, 2) cmp substr($b, 0, 2)
...
} keys %HoA;

# @sorted is (a1A, a1B, a2B, a2A)

my @sorted = sort {
    substr($a, 2, 1) cmp substr($b, 2, 1)
} keys %HoA;

# sorted is e.g. (a2A, a1A, a1B, a2B)

my @sorted = sort {
       substr($a, 2, 1) cmp substr($b, 2, 1)
...
} keys %HoA;

# sorted is (a1A, a2A, a1B, a2B)