spalte formatieren mit perl

[nadim]

tag,

habe folgendes problem

hab eine tabelle mit 2zeilen und 3spalten

jetzt möchte ich gern ich jede zeile einen Datensatz einfügen.
soweit kein problem:
bsp.

<tr>
    <td><div align="center">$result[1]</div></td>
    <td><div align="center">$result[1]</div></td>
    <td><div align="center">$result[1]</div></td>
  </tr>
  <tr>
    <td><div align="center">$result[1]</div></td>
    <td><div align="center">$result[1]</div></td>
    <td><div align="center">$result[1]</div></td>
  </tr>

mein problem liegt darin: wie ich eshinkriege, die spalten mit einer for schleife jeweils zu formatieren.

also dass sozusagen in jeder spalte ein anderer datensatz steht.

wäre über hilfe wirklich dankbar.

schönen tag noch

die datensätze krige ich über eine while schleife rausgefischt:

while (my @result = $sth->fetchrow_array) {
prine qq { etc};

}