while ($row_ref = $ST->fetchrow_arrayref) { print F "$row_ref->[$i] " for 0 .. $#{$row_ref};