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