while ( my @row = $sth->fetchrow_array ) {
      print "@row\n";
   }
##</code><code>##

my @row;

while ( @row = $sth->fetchrow_array ) {
      print "@row\n";
}