Sling less for speed
	l while(@row = $sth->fetchrow_array) {  } n one field:   3,100 fetches per cpu second n ten fields:  1,000 fetches per cpu second l while($row = $sth->fetchrow_arrayref) {  } n one field:   5,300 fetches per cpu second n ten fields:  4,000 fetches per cpu second l Notes: n Timings made on an old SPARC 10 using DBD::Oracle n Timings assume instant record fetch within driver n Fields all one char. @row would be even slower for more/bigger fields n Use bind_columns() for direct access to fetched fields
				34