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