c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump;
 ;;
 my @ra_1 = qw(a b c d);
 my @ra_2 = (1 .. 9);
 my @ra_3 = qw(p z e t i u);
 my @ra_4 = qw(foo bar baz);
 ;;
 my @AoA = (\@ra_1, \@ra_2, \@ra_3, \@ra_4);
 dd \@AoA;
 ;;
 my @sorted = sort { @$a <=> @$b } @AoA;
 dd \@sorted;
"
[
  ["a" .. "d"],
  [1 .. 9],
  ["p", "z", "e", "t", "i", "u"],
  ["foo", "bar", "baz"],
]

[
  ["foo", "bar", "baz"],
  ["a" .. "d"],
  ["p", "z", "e", "t", "i", "u"],
  [1 .. 9],
]