sub cmp_vec  {
   # return either -1,0 or 1 comparing over two equally sized arrays
}


sort { @$a <=> @$b or cmp_vec($a,$b) } @list;