my $ordered_schema = sprintf(
    "%s%s",
    $header . "\n",
    sub {
        my $ordered_columns;
        for my $column (sort keys %columns) {
            $ordered_columns .= $columns{$column} . "\n";
        }
        return $ordered_columns;
    },
);