I'm lazier than that, I don't like hardwired, manual copying. So I'd make this:

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