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

##</code><code>##

my @resultarray;

##</code><code>##

push @resultarray,\@row;

##</code><code>##

return @resultarray;  # returns list when called in list context
return \@resultarray; # returns reference
return wantarray ? @resultarray : \@resultarray; # adapt to calling context