Quiero asociar un valor de celda en la tabla con su encabezado. El encabezado no se conoce, ya que fue generado por la consulta SQL.

Los tamaños como encabezado provienen del resultado de retorno de SQL. Entonces ponlo en una matriz,

@sizes = qw(S36 S37 S38 S39 S40 S41 S42);

Ahora, si James tiene talla S38.

Quiero imprimirlos como tabla HTML con encabezado de tamaños:

+--------+--------+--------+-------+-------+-------+-------+
|    S36 |    S37 |    S38 |   S39 |   S40 |   S41 |   S42 |
+--------+--------+--------+-------+-------+-------+-------+
|        |        |  James |       |       |       |       |
+--------+--------+--------+-------+-------+-------+-------+

Sé cómo hacer esto si el tamaño es parte de la fila o del resultado, ¿pero como encabezado de tabla?

¿Cómo manipular esto con Perl?

EDITADO:

Intento resumir el código que intenté ...

Consulta SQL:

select size from articles where order_number = "3";

Entrar en una matriz:

while(my $ref = $sth->fetchrow_hashref()) {
    $size = "$ref->{'size'}";
    push @sizes, $size;
}

Decir,@sizes es:

@sizes = qw(S36 S37 S38 S39 S40 S41 S42);

Crear encabezado HTML basado en tamaños:

+--------+--------+--------+-------+-------+-------+-------+
|    S36 |    S37 |    S38 |   S39 |   S40 |   S41 |   S42 |
+--------+--------+--------+-------+-------+-------+-------+

Ahora, digamos de otra consulta SQL, sé que James tiene S38. Cómo colocar en la celda de la fila derecha de la tabla anterior. Podría ser:

+--------+--------+--------+-------+-------+-------+-------+
|    S36 |    S37 |    S38 |   S39 |   S40 |   S41 |   S42 |
+--------+--------+--------+-------+-------+-------+-------+
|        |        |  James |       |       |       |       |
+--------+--------+--------+-------+-------+-------+-------+