回复：看看这个,估计也不管大用. But you nerver know...

use strict;
my ($A,$B,$C)=([1,2,4],[1,2,2],[1,2,3]);
my @outer=($A,$B,$C);
my @sorted=sort { $a->[0] <=> $b->[0] ||
                  $a->[1] <=> $b->[1] ||
                  $a->[2] <=> $b->[2] } @outer;
map { print "@$_n"; } @sorted;