{
   local $, = "\t";
   local $\ = "\n";
   for my $row ( @out ) {
      print @$row;
   }
}