print join "\n",
  map { join ',', @$_ }
  sort {
    for (0..($#{$a}<$#{$b}?$#{$b}:$#{$a})) {
      return $a->[$_] <=> $b->[$_] || $a->[$_] cmp $b->[$_] || next
    }
  } @un_sorted;