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

##</code><code>##

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