my @x = (
          [ 11, 12, 13],
          [ 21, 22, 23]
        );
my @sorted = sort { $b->[1] <=> $a->[1] } @x;