my $ordered_schema = join "\n", $header, map $columns{ $_ } sort keys %columns;