Du könntest innerhalb der while Schleife die Arrays @boxno, @shipno, @custno, usw... mit den jeweiligen Werten pushen.

Dann kannst du sie einfach durchlaufen.

Aber ich kann mir auch gut vorstellen, dass es da etwas in der Datenbank API gibt.
Leider kenne ich mich da überhaupt nicht aus.

MfG PerlProfi