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

##</code><code>##

my $fields = $sth->fetchall_arrayref;