while (my $resultRowRef = $sth->fetchrow_hashref) {
  my %attrHash = %$resultRowRef;
  push @$result, \%attrHash;
}