Select Code to Download

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

my $fields = $sth->fetchall_arrayref;