Select Code to Download

 my @AoA = ([ra_1=> \@ra_1], [ra2=>\@ra_2], [ra3=>\@ra_3], [ra4=>\@ra_
+4]);
  # Fat comma's used for readability

my @AoA_sorted_by_size_Then_Name =
             sort {@{$a->[1]} <=> @{$b->[1]} || $a->[0] cmp $b->[0]}
              @AoA;