Select Code to Download

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


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

sub cmp_vec {
 my ($a,$b) = @_;
...
  }
  return 0;
]