##
@myarray = sort {$a->[$n] cmp $b->[$n]} @myarray;
##
##
my @arraylist = sort {$myarray[$a] cmp $myarray[$b]} 0..$#myarray;
for $listitem (@arraylist) {
print $myarray[$listitem];
}
##
##
for $listitem (@arraylist) {
print $myarray[$listitem][0] . "
";
print $myarray[$listitem][1] . "
";
print $myarray[$listitem][2] . "
";
}