my @sorted = sort { 
    $b->[0] <=> $a->[0] || $b->[1] <=> $a->[1] || $b->[2] cmp $a->[2] 
} @list;