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