say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h husl_h husl_s husl_l huslp_h husl_s husl_l/;
for my $rgb8 (sort keys %tests) {
say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h husl_h husl_s husl_l huslp_h husl_s husl_l/;
for my $rgb8 (sort keys %tests) {
my @cols = map { @{$tests{$rgb8}{$_}} } @colors;
say join ',', substr($rgb8, 1), map { sprintf '%.4f', $_ } @cols;
}
my @cols = map { @{$tests{$rgb8}{$_}} } @colors;
say join ',', substr($rgb8, 1), map { sprintf '%.4f', $_ } @cols;
}