my @array;

while (my @row = $dbh->fetchrow_array ) {
write ();
}

format STDOUT =
@<<<<<<<<<<@<<<<<<<<<<<<<@<<<<<<<<
$array[0], $array[1], $array[2]
.