while (my @fields=$sth->fetchrow_array) {
   Do_Stuff(\@fields);
}