{
  local $" = "\t";
  print $OUT map "@{$_}[10,18,20]\n", sort { $a->[10] cmp $b->[10] } @out;
}